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Happy Birthday to Us 


Welcome to our anniversary issue. This marks the beginning of our third year of support 

for TS computers, We would like to thank all of you for supporting us. The computer 
industry as a whole is really in the doldrums now, and I would like to add that continuing 
support for your computer is in your hands, We all must make it a point to let our 

favorite software and hardware distributors know what things we like and dislike and what 
we need. Continued communication and feedback will extend support and expand the scope of 
options that will become available for you. We hope that advertisers in SWN have what you 
want, and we are sure that you'll find doing business with them pleasurable. If you would 
like to see us grow, then we would appreciate your mentioning of SWN to all of your TS 
related friends and'business associates, Thank you. 


256K Ram! 


Aerco, who as had their disc interface available for several months now, offers a 256K RAM 
upgrade either configured as a ramdisc or port mapped in 64K banks shadowing the cartridge 
bank. It is available now for $50.00*p&h. Call or write for details. This is just the 
beginning. It looks like there is no end in sight for the amount or number of ways that 

you can add memory to the TS 2068! 


Who Won? 


It was tough indeed! In the 1000 corner, Gregory Harder, Denver, CO, came in first with 
Software LO-Res and John Byrne of Cookeville, TN, took second place with GET input 
program, And in the 2068 corner, again there was fierce competition, First prize went to 
John Nguyen of Louisville, KY, for submitting PIX FIX, and second prize went to Wes 
Brzozowski of Endicott, NY for his fully implemented 64 Column Basic. There were many 
excellent submissions to this contest. Consequently, there are really quite a few runners 
upe We are presently pondering the best way to handle all of this I/O. We do promise that 
we'll get as many of your programs into print as we possibly can, one way or another, GET 
READY!! We are planning another contest that will be bigger and better. Stay Tuned! 


MEMONOTES Makes Debut 


A new quarterly newsletter, for owners of Memotext and/or Memocalc and truly serious 1000 
owners, is available, It will cover Beginners Tips and Hackers Hints, and it will show you 
how to use these programs to their full potential, and then some, The cost is $13.95 and 

is available from Syncware, PO Box 64, Jefferson, NH 03583. 





INC. 


THEN THERE WAS BYTE-BACK 
RT.4 BOX 54, LEESVILLE, SC 29878 


BYTE-BACK HAS BEEN MANUFACTURING PERIPHERALS FOR TIMEX / SINCLAIR COMPUTER OWNERS SINCE 1981. IT HAS ADDED MANY 
NEW PRODUCTS SINCE 17S FIRST N16 AND BB-1 CONTROLLER. — BYTE-BACK HAS PULLED THROUGH THE DEMISE OF TIMEX AND WILL 
CONTINUE TO PROVIDE SUPPORT AND NEW PRODUCTS IN THE FUTURE. , 


MODEM ND-2 for 2X81,T51808,T51580 ALL THE FEATURES NECESSARY FOR TELECOMMUNICATIONS WITH 
M0-68 for 152068 SERVICES SUCH AS COMPUSERVE OR YOUR LOCAL BBS 

* upload and download text to and from memory and tape — ! RS-232 port for adding full size printers 

# 300 baud - word length, parity, etc. selectable * 2 hour compuserve deno pack 


| + direct connect with phone load for clear communication # 5 hour compuserve starter Kit available separately 


SAK MEMORY N-44 for 7X81,T51008 EXPAND YOUR TIMEX/SINCLAIR TO ITS FULLEST POTENTIAL 
NOT AVAILABLE FOR 152868 


# 8-16K area selectable in 2K increments X battery back up to stop annoying crashes 

* eprom socket for preprogrammed eproms (2K and 4K) # ron-ram transfer for machine code buffs 

# reset switch which only resets the 16 to 32K area x this is not a nonvolatile raa! 

CONTROLLER B8-1 for 2X81,T51888,T51580 CONTROL THINGS WITH YOUR TIMEX/SINCLAIR 
BB-68 for 152848 

# 8 independent relays # 8 logic inputs 


* 8 led status indicators to monitor status of relays 
1 analog to digital converter sold separately to allow controller to measure voltages 


RS— 23 Z RS-232 for 2X81, 751008, 151588 YOUR TIMEX SINCLAIR CAN OPERATE FULL SIZE RS-232 TYPE 
RS-232-68 for 152868 PRINTERS 
# cable and software sold separately x C.ITOH 7588AR serial printer available separately 


PARALLEL. PARALLEL 1888 for 2X81,T51888,151588 YOUR TIMEX SINCLAIR CAN OPERATE FULL SIZE 
PARALLEL 2868 for 152868 CENTRONICS PARALLEL TYPE PRINTERS 
# Sft cable and software provided s C.ITOH 75884P parallel printer available separately 


98 DAY WARRENTY ON ALL MODULES 

Any hardware module nay be returned for a full refund within 18 days of receipt. 

BYTE-BACK offers a few hardware Kits for Kit builders. Our Kits require excellent soldering ability. 

Kits include a high quality printed circuit board and all of the parts. 

Kits have a 9@ day warrenty on parts only. Kits may not be returned for a refund once they have been started. 
TELEPHONE « 80392 532-581 2 








—UM-64 assenbled $119.95  . kit $109.95 THERE WILL BE A $4.95 SHIPPING CHARGE PER ORDER. 
—BB-1 assenbled $ 69.08  . kit $ 59.80 PLEASE SPECIFY COMPUTER TYPE 

—BB-68 assenbled $69.00 kit $ 59.08 

—RS$-232 assembled $ 69.95  . kit $ 59.95 PLEASE BILL MY _AM.EXP. VISA -M/C 

—RS-232-68 assembled $69.95 kit $ 59.95 

—M0-2B assenbled $149.95 Uli ee ee ee a eae ere: |) || Ss 
—MD-68 assenbled $149.95 

—hA-D converter assembled $ 29.95 — ] HAVE ENCLOSED A CHECK OR MONEY ORDER 

—Test lead for A-D $ 3.95 

—PARALLEL 1000 assembled $ 84.95 a ee Se a ee ae ee ee 
— PARALLEL 2068 assembled $ 84.95 

—CABLE FOR RS-232 $ 19.95 AME S ee EL PIT En CT ique 
— PRINTER SOFTWARE FOR RS-232 $ 19.95 

—X PRO/FILE (751008) $ 16.95 

—X PRO/FILE (752068) $ 29.95 

COMPUSERVE 5 HOUR PACKAGE $ 29.95 CITY/STATE/2]P. 

— 7598t^R SERIAL PRINTER $329.00 

__7500AP PARALLEL PRINTER — $289.95 PHONE un umi eai edd SWN 





FOR YOUR 


This column announces any software or hardware that 
is new or otherwise untested by us. If you have 
something of interest, send us a description of your 
product. We advise readers to send a SASE, as a 
courtesy, to the individuals or companies, for 

further information. 


Chia-Chi Chao, 73 Sullivan Dr., Moraga, CA 94556, 
has Word Twister available for both machines, It 
generates word puzzles based on information that you 
type in. $10.00 for the 1000, $13.00 for the 
2068*1.00pXh. 


Mike Trivisonno, 1322 Golden Gate Blvd., Mayfield 
Hts., OH 44124, 216 449 1666, has CIDS. It has a 
full screen editor, over 30 commands, 16K data 
storage and has the ability to learn new commands, 
It comes with after sale support, and manual. SASE 
for info or $14.95 for program on cassette. 


Jack Dohaney, 325 O'Connor St., Menlo Park, CA 
94025, has a MC Relocator, tat will move your 
machine code routines. You should be unafraid to 
learn MC. Send SASE first. Net Profit enables you to 
keep track of 70 accounts and print out a Schedule 
C. Each program is $8.95 


Fred Nachbaur, Compartment 12, Mtn. Stn. Group Box, 
Nelson, BC V1L 5P1, Canada, has Fourier Analysis for 
both computers. It comes on tape with a tutorial 
booklet and manual for $18.95. 


Tim Worcester, The Electronic Closet, 8187 Blakely 
Court West, Bainbridge Is., WA 98110, has a Gorilla 
Banana Conversion Kit. It provides upper & lower 
case with true descenders and graphics, but no 
alternate foreign language characters. To order you 
must specify your printer eprom ID as 3LE, 3AL-1 or 
4AE-0. The price is $14.95. 


Games To Learn By, 28 Claire Hill Rd., Collinsville, 
CN 06022, 203 673 7089, has a portability package 
that allows you to "Take your 2068 with you." They 
have a multitude of configurations depending on what 
you have and what you need. Send SASE for more info. 


Kraig Pritts-K A2LHO, 3421 Oneida St., Chadwicks, NY 
13319, MCI Mail: 262 5517, Compuserve: 74676, 3320, 
has the Ham Helper Series catalog. It includes a 
compendium of programs designed to put the Sinclair 
computers to work in a Ham shack. Send SASE for 
info. Programs can be supplied on A&J Microdrive., 





SUPPORT 


John Oliger, 11601 Whidbey Dr., Cumberland, IN 
46229, has a Kempston compatible joystick that plugs 
into his expansion board. The port is fully decoded 
and can be used on the 1000, but it requires some MC 
effort. The bare board is $10.95 and with a parts 

kit is $16.95 or $21.95 assembled and tested (add 
$3.00 if you want gold plated edge traces). 


Tom Woods, PO Box 64, Jefferson, NH 03583, has a 32K 
Non-Volatile Ram board that plugs into the cartridge 
Slot. It is mapped from 32K to 64K and can be in 
either the cartridge bank or the Exrom bank 

(requires Exrom decoding as per SWN 2/3 pg. 19). The 
board comes with a write protect switch and driver 
software. It is available for $109.95. 


Knighted Computers,707 Highland St., Fulton, NY 
13069, has just reduced prices in their catalog. 

They have 2068 Pascal and 2068 "C" for $18.50 each. 
White Lightning is available for $21.95. Send for 
more info. 





The SyncWare News 


Thomas B. Woods Publisher 
Thomas J. Bent Editor 
Fred A. Nachbaur Technical Director 


All subscription information, billing and ad artwork 
should be addressed to: 


SyneWare News 

PO Box 64 
Jefferson, NH 03583 
(603) 586 7734 


Article submissions, Forum, Support listings, 
Classified ads and easy questions, should be 
addressed to: 


SyneWare News 
9016 Flicker Place 
Columbia, MD 21045 
(301) 730 7187 


Article submissions, issue tapes (when warranted), 
hardware and related tough questions should be 
addressed to: 


Syncware News 

Mountain Station Group Box 12 

Nelson, British Columbia, Canada V1L 5P1 
(604) 354 3858 


Back issues of SWN are available for $3.50 each. 
Volume #1 (for the 1000) is available for $16.95. 


GET BACK TO BASICS with BASICALLY PROGRAMMING 
asically 2528 W Olive 
s Z Fullerton. CA 92633 
rogrammiung, (714) 738-0666 








4 = Please include SWN is done entirely on TS computers. Submissions 
jy REE Sai, SU ETOT a check or mo 
LL ee eee $12.95 order. Calif. are preferred as word processed text files (so we 
i xcu Ri nC Ico NER LM need not re-invent your article) on good tape. 
pn v v . + z 
2X Data Finder........... $14.95 "pledge 7. Add Memotext for the 1000 and 1500 and Mscript for the 
Z-Wryter (16K to 64K)....512.95 2.5 Nb 
Profit Pisis AAPA 2068 are preferred word processors. Documents 
Pee om e y e a Ae submitted in Tasword Two and other word processors 
MA 2 GS aie Lage Sts er PEG ER | must be done in 52 column format. If you do not have 
Torpedo Attack........... $ 9.95 SE NO 
Games Pack (2K)........-- SU UR Pu CHLOE a word processor, but you still have a good idea, 
T z S then don't hesitate too work it up and submit it. 
TER P- w e have 
35 not abandoned SWN pays authors about $40.00 per page for original 
$5 si e i irse articles, This amount will vary slightly from issue 





to issue and is paid when the article is published. 
Write for more information. 











Well, as the little gremlins would have it, that 

TS1500 bug fix (SWN 2/6 Forum) had a bug of its own! 
In the corrected code for EPROM, at location 5361, 

I have 1863h, which is JR BADT. What it was supposed 
to be was JR NC BADT or 3063h. Also, since this is 

a two byte instruction instead of a three byte 
instruction, the next location (5363h) should 

contain a NOP (this byte ended up on the cutting 

room floor). 


Dear Editor, would it be possible for you to print 
a schematic depicting how to install that "reverse 
diode" (SWN 2/6 Forum), as mentioned in John 
Oliger's letter? 


Jean-Claude Touzin, CP 41, La Sarre, P.Q. J9Z 2X4 


Yes! You need a 1N4148 diode. We printed the LOAD 
schematic in SWN 2/5 pg. 7. The diodes are CR25 and 
CR26. Your addition would be to have the third diode 
parallel these two, but it would go in the reverse 
direction. In SWN 2/3 pg. 13, CR25 & 26 are located 
just left of C56. It may be necessary to mount the 
diode under the board, because there may be some 
silicone glue partially covering the diodes. 





Dear Editor, Your Spectrum, (8/85) pg. 17, gave a 
POKE into the Spectrum channels area, which puts the 
edit line at the top of the screen. For the 2068, 
POKE 26692, 83. To restore normal operation, POKE 
26692, 75. 


The first POKE puts the letter "S" (i.e., Screen) in 
the channel-code byte in the first channel record. 
This is the part of the channels area that handles 
streams #0 and #1 (the keyboard IN and the edit line 
and error messages OUT). The second POKE restores 
the code for "K." 


_P. H. Skipper 





Dear Editor, we are trying to figure out how to 
program the 2050 Modem from Basic. Micro-Systems 
seems to be stonewalling us on how or where to find 
this information, Could you put us in touch with 
someone who might know to set the word length, stop 
bits, etc? I would also like to announce that the S. 
Florida ZX User Group has a BBS on line (305-439- 
5077). 


Chris Sloan, 4221 Turnberry Cir. #11, Lake Worth, FL 
33463 


May I suggest another avenue? Why not use a REAL 
RS232 interface. Aerco has a dual RS232 that is 
documented and programmable from Basic. It also will 
run much faster than 300 baud. They supply a 
terminal emulator with the interface that precon- 
figures all operating parameters. You may then use 
any Modem available on the market. You can also 
drive a printer simultaneously. Aerco is one of the 
Zew TS related manufacturers that still offers 
technical support. 


Barry Carter may be able to help you. He has written 
a book explaining how to use the 2050 and Mterm 
software. His address is PO Box 614, Warren, MI 
48090, 313 537 8559. We'll look around for more 

info. 





Dear Editor, the challenge to check your figures in 
SWN 2/5 !Off the Wall column, caught my attention. 
I came up with a printout of 1.0776E12 miles; 
certainly a respectable distance. According to my 
latest information, Pluto's year is 248.4 of ours, 

At an orbital velocity of 2.9 miles/sec., the 
circumference of Pluto's orbit is 2.2732E10 miles. 
This means that the printout would only make it 47.4 
times! Would our printout make it to Betelgeuse 
before Radio Shack runs out of paper? 


Paul Bingham, Pleasantrees Programming, PO Box 2034, 
Mesa, AZ 85204. ; 





COMPUSA owners! A national Compusa user group is 
being formed to promote the use and understanding of 
this system. Contact Tony Gomez, 2013 #3 Los Feliz, 
Thousand Oaks, CA 91362 for more information. 


————————mmm€ 


Dear Editor, I am enclosing my check for renewal 
with apprehension. It is not a reluctance to waste 
money, but a suspicion that I will regret having 
done so by next year. 


Some of us really enjoy our 1000's and don't want to 
get a bigger computer... I think what I'm trying to 
say is that you publishers continue to significantly 
decrease the number of words that are applicable to 
the 1000 as you get more sophisticated with the 2068 
and QL... Be forewarned that you will have to give 
up a whole bunch of us that will be left behind as 
you progress. I'm going to hang on for another year, 
but I honestly expect that I will be lost by the 

time my subscription expires. It is worth thinking 
about. 


Paul Edwards, 1613 Sheila Dr. Pelican Bay, TX 76020 


As I sent you a synopsis of our Vol. 2 contents, I 
won't repeat it. We also have Vol. 1. It is all 1000 
stuff. Is it that you know all about your machine? 

You mentioned some "mods" that you have made. Would 
you like to tell us about them? We can only publish 
what is written, We are here to serve you. Don't 
complain to us: Give us direction. Tell us what it 

is you would like to see or read about. Many of you 
know that we often give personal answers, but 
Sometimes we just get swamped too. Some questions do 
get developed into articles and some are answered in 
the Forum. I know of someone (peter MeMullin) who 
converted T. Woods "2068 Word Images" for the 1000! 


Although I don,t feel that the 1000 is getting a bum 
steer here, fair is fair. We will not give up on the 
TS1000. 





BACKGAMMON 


Looking for a real ee Tired of slow response tine? 
^ If so, you'll want to di our 
Back pasan ame. Features: full-screen graphics reak 
ed, 1097 machine code, clean loading, saart play top 
rating froa TSUG review, nulti-gane scoring, cube dou ling, 
siaple operation, docusentation included. Requires 1X81 or 
jsi 00 w/16K RAM, Avai lablg on "praeit for only $10, 
n a 10 game test against PSION, BIOCAL won every game! 
Write for our FREE catalog listing 100 Piel TS 1000 
à 


and 2068. Please include expir. date o orders. 
, W Y E CA 
AA " OFTWARE, INC. 


.Q. Box 965 
Stinson Beach, CA 94970 











UPD Modifications 


Thanks to Peter McMullin, we now have a "Print an 
ASCII character" routine for the Centronics 
interface from EPROM Services in England. This can 
be patched into the "Universal Printer Driver" by 
entering the following code: 


z9DB"ES ASCI PUSH HL 
29D9 CS PUSH BC 
=9DA FS FUSH AF 
Z9DB CDE702 CALL TFAS 
Z9DE DEIE STAT IN A^. (9B) 
Z9EO 17 RLA 

29E1 38FHB JR C STAT 
e9ES Fi SEND FOP AF 
Z9E4 DIBB OUT (8B).A 
Z9Eó6 AF XOR A 

Z9E7 DZBB DUT (BB).A 
29E9 AF XOR A 

29EA DZBĘ OUT (BB).A 
Z9EC DB9B IN A. (9B) 
Z9EE 17 BUSY RLA 

Z9EF 3005 JR NC 29F6 
Z9F1 17 ACK? RLA 

Z9F2 2002 JR NC 29F6 
29F4 18F6 JR 29EC 
z9F6 CDO702 CALL MDCK 
=9F9 C1 FOF BC 
=9FA El POP HL 
Z9FB C9 RET 

29FC OO NOF 

29FD oO NOP 

29FE OO NDF 

z9FF OO NDF 


Also, you have to add this little nine-byte 
initialization routine somewhere in memory (e.g. a 1 
REM statement). Call this once, before printing, to 
initialize the PIO chip. 


4082" iEB8 INIT LD A. 88 
4084 DZBHB OUT (BB).A 
40B6 ZEO1 LD A.O1 
4088 DIBE OUT (BB).A 
408A C9 RET 


There is yet another omitted label on the schematic 
for the video-reverse driver in SWN Vol. 1. The top 


of the summing resistor chain (the 390 ohm resistor) 
at the output of the comparators goes to +5V. 


In the last issue (2:6) the author's name was 
omitted from the "Adding on to Gladstone" article. 
We hope that Jeff Moore is not too upset with us. 
Jeff was also very helpful in developing UPD, and 
should have been included in the acknowledgments, 


Let us know if YOU find any errors or omissions, 
Though "we try harder," we're far from perrfect. 





POWERFUL AND INEXPENSIVE BUSINESS 
SOFTWARE FOR ZX81, T/S1000 and 


T/S1500 COMPUTERS 
ZX-CALC 
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An electronic spreadsheet calculator is the 
fundamental basic tool for summarising, reporting 
and analyzing in matrix form any accounting, 
mathematical or scientific manipulation of num- 
bers. ZX-Calc operates in 32-64K RAM and affords 
a maximum of 3360 characters / spreadsheet. The 
entire matrix consists of 15 columns (letters A-O) 
and 30 rows (numbers 1-30) with 8 characters / 
cell. Unlike other popular ESCs, ZX-Caic uses in 
calculations and within cells ull 14 math functions 
on the ZX-81 /TS1000. It offers a unique “SUM 
function that totals one or more rows /columns 
simultaneously. Parenthesis can be used within 
equations. There is no fixed limit on how many 
equations may be entered. Formulas may be 
stored in all 420 cells of the spreadsheet. The 
display affords 15 rows /colums. Loading of data 
into more than one cell can occur across / down 
one or more row/column simultaneously. With 
vertical windowing you can arrange a set of col- 
umns in any order, or practice using fixed- variable - 
alignment display formats. The menu offers 6 
options: enter / erase, move, calculate, print, save 
and clear the spreadsheet. Enter /erase allows 
the entering, deletion or data alignment within a 
cell through the use of a mobile cursor. With the 
move option you may move around the entire 
sreadsheet to access any row, column or cell. 
The calculate option allows you to enter labels, 
values or formulas into a cell or write and enter 
equations that will act uponthe data already within 
the spreadsheet. You can also enter bar graphs 
into a cellinthis option. Absolute /relative replica- 
tion, down/across a column /row, is alsóallowed 
by this option. Also this option allows the auto- 
matic calculation of the entire spreadsheet with 
one single command. Print allows youto outputto 
either the ZX/TS printer the entire spreadsheet by 
column-sets and row-pages through use of the 
COPY command. The entire spreadsheet may be 
saved on cassette tape or you may clear all data 
from it or erase the program from RAM entirely. 
The most salient advantage provided by an ESC 
over specifically vertical applications software is 
that an ESC provides a reusable framework with 
which you can compose any specific financial 
model rather than just belimitedto only one stati- 
cally fixed format for storing, displaying and 
manipulating numerical data. 


$16.95 
$3.00 SHIPPING AND HANDLING /PROGRAM 


A.F.R. SOFTWARE 


- 1605 Pennsylvania Avenue, No. 204 
Miami Beach, Florida 33139 


FLORIDIANS ADD SALES TAX 
DEALER INQUIRIES WELCOME 


ALSO AVAILABLE FOR THE T/S 2068 





SOFTWARE LO-RES is a machine-language utility 
program for the ZX81/TS1000/TS1500, which creates 
enlarged characters on the screen, This makes it 
useful for any persons with a visual handicap. Since 
it also allows fast moving screen displays; it is 
useful for any number of programs where a flashy 
screen is desired. You may want to consider using it 
for title displays, scrolling graphic actions games, 
"billboard" programs and so on. 


Using SW Lo-Res 


SW LO-RES is entered with a USR call to 16601. The 
form will always be: 


xxxx LET LR-16601 (optional) 
yyyy IF USR LR THEN REM [data string] 


SW LO-RES will then process the data string 
immediately following the REM command, This data 
string will contain two pieces of information: 


1: The characters which are to be printed, 
and 


2: Various "control" characters which will 
instruct SW LO-RES on how to handle the 
character string. 


The control characters consist of: 

<= (shift R) - Scroll up 

=> (shift Y) - Scroll down 

** (shift H) - Execute a "newline" 

<> (shift T) - Change print mode 
The <> control character must be followed with the 
number corresponding to the desired print mode: 


<>0 = go into print mode 0 
<>1 = go into print mode 1 
<>2 = go into print mode 2 
<>3 = go into print mode 3 
<>5 = this is a special instruction which tells 


SW LO-RES to set the next print position 


to "Home", in other words, the upper 
left-hand corner of the screen. The print 
mode is not changed. 


SW LO-RES will always start in print mode 0. Here is 
what the various print modes look like: 


MODE 
MODE 
MODE 
MODE 


GJ Pi P E 
HH tt I 





SOFTWARE LO-RES 


For TS1000 


Sample Programs 


This is the simplest program possible. with SW LO- 
RES. It prints an enlarged "P" to the screen in mode 
0. 


9000 LET LR-16601 
9010 IF USR LR THEN REM P 


The initial print position can be set by using a 
PRINT AT statement: 


9000 LET LR-16601 
9010 PRINT AT 0,5; 
9020 IF USR LR THEN REM HELLO**hello 


[second "hello" is inverse] 
Note that subsequent print positions are controlled 
by SW LO-RES. Also in this sample, note the new-line 


character (**) which prints the inverse "hello" on 
the next line down. 


Note how the new-line character works in this 
sample, since we changed to print mode 1. 


9000 LET LR-16601 
PRINT AT 2,10; 


9020 IF USR LR THEN REM <>1HELLO**hello 


Using the PRINT AT feature can produce some 
interesting displays. For example, 


9000 FOR N-0 TO 28 
9010 PRINT AT N-8,18-N; 


9020 IF USR LR THEN REM hi ["HI" is inverse] 


9030 NEXT N 


The scroll speed can be changed by altering the 
value at address 16594. The lower the value, the 
faster the scroll. 


Lo-Res Screen Copies 


Since SW LO-RES uses the entire screen, a COPY 
routine is provided which will copy all 24 lines of 
the screen. It is called with a USR to address 

16946. A second COPY routine, at address 16950, can 
be used to copy part of a screen, 1 to 22 lines, The 
number of lines is determined by the location of the 
print position; no POKEs are needed. You must simply 
precede the call with a PRINT AT statement. For 
example, to copy half a screen: : 


xxxx PRINT AT 11,0; 
yyyy RAND USR 16950 


If the control characters are used correctly, very 
long data strings can be printed, allowing the 
creation of highly complex displays. Enter and RUN 
the "DEMO" program to explore some of the 
possibilities. 





Er ror Conditions use an assembler or hex loader to input the 


mnemonics or hex values of the assembly listing of 
Listing 1. When complete and checked for errors, 
POKE 16510,0 to give the REM a line number of zero. 
SAVE the result to tape, for future incorporation 


When using SW LO-RES, the following error reports 
may occur: 


REPORT ERROR CONDITION into your own creations, Then enter the BASIC "DEMO" 
program of Listing 2, and SAVE it to tape 
M Improper mode request, in other separately, using GOTO 9990. This contains quite a 
words mode-control <> is not few applications tips, and serves as an impressive 
followed by 0, 1, 2, 3 or 5 demonstration of what your machine's graphic 
capabilities, (It also contains a little "free 
L Left margin overflow, results advertising" for our favorite Sinclair-specific 
when trying to print off the magazine...) 
left side of the screen. 
R Right-margin overflow Have fun with this. Let us know if you find any 
particularly interesting applications. 
B Bottom- margin overflow 
S String character error. Results SW LO-RES Listing 


if a token character is included 
in the data to be printed, (Does 
not include print-control 
tokens.) 


Entering the Program 


Start by entering the machine-code into a 1 REM 
statement, at least 445 bytes long. Use your 
favorite decimal loader to input the values in Table 
1, from address 16514 through 16959. Alternately, 


YOU: SEE <=I5 
GUAGE < =<PROGRAM <= 


£i FF CT ur Por Fe FO be Fe ETE ES IDE TOL FE 


fo Q fO FO E s m fo Un m oar 


ENLARGED :zC 1 t t 
SCREEN. : sWHIC 5: SAY: 

IT : =COULD : =BE HANDY i 
ERSONS <i siWITH A: =U TSUAL ¢ HAND ICAP 
ducit RLS0:zMRKES,:-2IN MY «:zOPINIO 

, ¿2A NICE:«zMOVING:sDISPLRY,.iz: 


E 
200 IF USR BT THEN REM 
L THE :sNORMAL :=AND ALSO:= 
¿i =CHR$ CAN:=BE USED: i= 
"84 S0ABCDEF i ( EGHIJKLMN 


pb 
Uo P 


fa fO Ca E^ C Für Ga Tor f e QS i C3 C9 69 GS e Fu 6 Fo CS 


B: = 
205 REM 
206 REM 
210 IF USR BT THEN REM 


{sis 


(S CETHERE: =ARE FOUR. SPRINT: 
SHODES (=AVAIL-<=ABLE TO<=THE USE 
RisMODE @<=I5 THE<="NORMAL" < =PRI 
NT:zMODE AND:=THE ONLY <=O0NE USED 
(250 FAR. <=PRINT SMODE 1<=WILL B 
E: SSHOWN < =NEX 

215 REM 
216 REM 
220 PRINT AT 
230 IF ni um 


T- ULO t OS C) fü CJ IP 4 C93 Ot E C) D E Gr C3) Cl 
» fa C] P e e 1 D CO (D CFL P E TO UT] 74 CJ £ Ca C3 


ec 
2 

ez 
ei 
24 
ai 
22 
20 
ee 
is 
ez 
es 
aS 
ez 
@i 
eil 
ig 
18 
a3 
ei 


3 Ch Fe 01 00 Oi Fe P ORC ORI PS CO UD Fe 1 UO 


340 CO AUS aede 
ese IF USR BT THEN REM 
( WHICH: =COULD< =BE 
-sBANNERS 20N THE: 
eee tee eee z 


gm: 
{sis 


toT E: fo i fO S e Ge 
CaA G)D (LES TO a F 
£f 400 P F- Ul JUD fra 


Note: Enter each number working ACROSS. 
For Example: 118 ENTER 118 ENTER 000 ENTER 
135 ENTER 004 etc. 









REM :-HEHE 1 
¢=PRINT ¢ =MODE 
2¢=PRINT<=H 
5E :-zDOLN:z 
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REM : 
8 a 
THER 
DED < 
= SE c= 
t iE < NTER 
44m = 
418 6 
4280 R 
v c 
Lc 
Ez 











430 PRINT AT 
4298 RAND i t 





HEX 
FOR 
TE 


i 


BT THEN. 


= 


















2130 ; 

2148 LET n-zü 

2158 FOR N=8 TO 20 

2188 PRINT AT H,8; 

2178 IF USR BT THEN REM 

2180 NEXT 

2188 POKE 

2288 IF USR BT THEN REM isi-i-i- 
3310 

z220 

2238 

2248 

2258 = 
2288 28 

2278 8.18-N; 

228g HEN REM MH 

22930 





(ha 
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2 
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7X-81 and TS-1000 Users !! 


2K and 4K Programmer's Utility EPROMs 
for your computer. 


EPROMs contain routines for editing and development of 
Basic programs. Routines are Renumber, Copy, Search, 
Delete, Merge, REM Kill, Free Space, Unlock, Variables 
Print, Move, REM Generate, Hex/Decimal Converter, 
Program Size, NVM Storage, Tape Index. Requires Hunter 
NYM, RomPak, CAI/O or other auxiliary memory board. 


2K EPROM (8 routines) $18.50 
4K EPROM (15 routines) $25.00 
Delphic Enterprises 


P.O. Box 72205 
Corpus Christi, TX 78472 





NEW PRODUCTS AVAILABLE 








PROYFILE 2068 EXTENTIONS - This news sheet 
shows how to move data between different 
versions of Pro/file 2068, how to add a 
switchable Key click, save 3 ways ‘the 







origina! Way, everything including machine 
code, or just the file space actually used so 
fari, avoid auta printing "SEARCH 1s 


COMPLETE", save memory for- files and more - 
$4.00 


WORD PUZZLER 20468 - Input words from your 
favorite crossword puzzles. Later when you 
can’t remember an answer just search for the 
word using "*" for unknown letters.  *T*«R 
would list every 5 letter word with T and R in 
those relative positions such as OTHER and 
STEER. Machine code speed. You can put in 
35,000 characters! - $10.00 









T/S GRADER 1000 or 2068 - Still the fast 






est, 
with the most capacity and flexibility, This 
one will probably handle all vour classes at 


one time, Machine code speed! - $15,795 (1000) 
or $19.95 (2068) 















s 


Robert Fischer 
221 Scoggins St 


e] 


Summerville, Ga 30747 


Disassembly Listing 1. 
aodr HEX NAME DEC ADDR CHR$ 


4082 76 118 16514 ;Data table 40ED C1 END- FOF BC ;Yes, reset stack. 
4083 76 118 16515 ; containing the 40EE 2A0C40 HOME LD HL.(DFIL) ;Reset print position. 
4084 00 O 16516 ; graphic symbols 40F1 23 INC HL 
4085 87 135 16517 «œ ; used in 40F2 220E40 LD (DFCP).HL 
4086 04 4 16518 « ; generating 40FS C9 RET ; 
1087 83 131 16519 æ ; the enlarged 40F6 FEDB CTRL CP DB iIs it a <= character? 
3088 02 2 16520 ° ; characters 40F8 2006 JR NZ DOWN ;No, check for down scroll. 
4089 85 32 16521 1! 40FA CD9440 CALL UPSC ;Yes, scroll up. - 
308A 04 6 16522 4 4OFD C1 NXCH POP BC ;Restore the character pointer. 
408B 81 129 16523 4 4OFE 18E2 JR NEXT ;Do the next character. 
408C O01 1 16524 ° 4100 FEDC DOWN CF DC ;Is it a => character? 
408D 84 134 16525 ^4 4102 2005 JR NZ MODE ;No, check for mode character. 
JOBE OS 5 16526 @ 4104 CDA940 CALL DNSC ; Yes, scroll down. 
408F 82 120 16527 & 4107 18F4 JR NXCH ;Do the next character. 
1090 03 2 16528 " 4109 FEDD MODE CP DD Is it a <> character? 
1091 84 132 16529 " 410B 2019 JR NZ NULN ;No, check for a newline character. 
1092 07 7 16530 P 410D 03 INC BC ;Point to the mode code. 
4093 80 128 16531 B 410E OA LD A. (BC) ;Get the mode code. 

410F FE21 CP 21 ;Is it mode 57 

4111 CCEE40 CALL Z HOME  ;Yes,reset print position to home. 
aüdr HEXCODE NAME MNEMONIC 4114 280D JR Z RSTR ;Do the next character. 
z2z2zzzz2£z2222z2zz2-2-2-2-------- 4116 D&éiC SUB 1C ;No, convert code char. into a number. 
1094 2A0C40 UPSC LD HL. (DFIL) ;The up-scroll routine 4118 3804 JR C ER-M iIf carry then not a proper code. 
4097 22 INC HL ;Start of the display file. 411A FEO4 CP 04 ;Check for proper code. 
4098 ES PUSH HL ;Stack it. 411C 3802 JR C SV-A ;1f no carry then not a proper code. 
4099 018400 LD BC.0084 ;Four rows down. 411E CF ER-M RST 08H ;Error, improper mode code. 
4309C 09 ADD HL.BC ;Set source. 411F 15 ERROR M ;Error code M. 
409D 019402 LD BC.0294 ;Set counter. 4120 320940 SV-A LD (PMOD?.A  ;Set PMOD value. 
3040 D1 POF DE ;Set destination 4123 E1 RSTR POP HL ;Clear the old character pointer. 
4001 EDBO LDIR ;Move everything up four rows. 4124 18BC JR NEXT ;Do the next character. 
40A3 OE84 LD C.84 ;Four rows to clear. 4126 FED8 NULN CF D8 ;Is it a ** character. 
40AS ED42 SBC HL.BC ;Set source. 4128 202E JR NZ SORT ;No, all control have been tested. 
40A7 1812 JR CLER iClear the bottom four rows. 412A 2A0E40 LD HL. (DFCP) ;Yes, do a newline. 
4049 241040 DNSC LD HL. (VARS) ;The down-scroll routine. 412D 112200 LD DE. 0022 ;Determine NL for modes 1 & 3. 
40AC 2B DEC HL ;End of the display file. 4120 7E PAD- LD A. (HL) 
SOAD ES PUSH HL Stack it. 4131 FE76 CP 76 
40AE 018400 LD BC.0084 ;Four rows. 4133 23 INC HL 
40B1 A7 AND A ¿Clear carry. 4134 1B DEC DE 
40B2 ED42 SBC HL.BC Set source. 4135 20F9 JR NZ PAD- 
40B4 019402 LD BC.0294 ;Set counter. 4127 2A0940 LD A. (PMOD)  ;Test for mode ð. 
40B7 D1 POP DE ;Set destination. 413A BA CP D ;Mode 8? 
40B8 EDB8 LDDR iMove everything down four rows. 413B 2804 JR Z LINE ;Yes, do horizontal newline. 
40BA 23 INC HL ;Set source. 413D FEO2 CP 02 ;Mode 2? 
40BB ES CLER PUSH HL ;Stack the source address. 413F 2004 JR NZ V-NL  ;No,do vertical newline. 
40BC ZEO4 LD 4.04 ;Set counter for four rows. 4141 1663 LINE LD E.43 Set for horizontal newline. 
3O0BE 011F00 CLNX LD BC.O01F ;Set counter, 31 spaces to clear. 4143 180D JR H-NL ;Do horizontal newline. 
40C1 70 LD (HL).B iClear the first space. 31145 7B V-NL LD A.E ;Set for vertical newline. 
40C2 54 LD D.H ;Set destination. 4146 FEOS CF 05 ;Test for enough space in DFILE. 
40C3 SD LD E.L 3148 3002 JR NC V-OK ;If no carry then space available. 
40C4 13 INC DE 414A CF ER-L RST 08H ;Error, left margin overflow. 
30CS EDBO LDIR ;Clear the row. 314B 14 ERROR L ;Report code L. 
3007 23 INC HL ;Set for the next row. 414C D404 V-0K SUB 04 ;Set for vertical newline. 
40C8 23 INC HL 414E 5 LD E.A 
40C9 SD DEC A ;Decrease the row counter. 314F 2A0C40 LD HL. (DFIL) ;Set the NL print position. 
40CA 20F2 JR NZ CLNX ;1 not zero then clear next row. 4152 19 H-NL ADD HL.DE 
40CC E1 POP HL ;Restore the source address. 4152 220E40 LD (DFCP).HL 
40CD 220E40 LD (DFCP).HL ;Set the next print position. 3156 1805 JR NXCH ;Do next character. 
40D0 010105 LD BC.0301 ~—; Loop controlling scroll speed. 4158 A7 SORT AND A ;Clear carry. 
40D3 OB DLAY DEC BC ;Decrease the counter. 4159 17 RLA ;Test for token character. 
40D4 78 LD A.B ;Is it zero? 354A 17 RLA 
40D5 Bi OR C 4155 2002 JR NC GPHC ;If no carry then not token. 
40D6 20FB JR NZ DLAY  ;No, continue countdown. 35D CF ER-S RST 08H ;Error, improper string character. 
40D8 C9 RET ;Yes, return to main program. 415E 1B ERROR S ;Error code: S. 
40D9 AF STRT XOR A ;Reset print mode (PMOD) vbl. 315F C547 GPHC BIT 0.A ;Test for a graphic character. 
40DA 220940 LD (PMOD).A 4141 2805 JR Z NRML ;If not set then a normal character. 
40DD ED4B1440 LD BC. (CHAD) ;Locate the data string. 4163 222140 LD (GFLG?).A Set the graphics flag. 
40E1 03 INC BC ;Skip REM. 4156 CB87 RES 0.4 ;Reset the graphics bit. 
40E2 O2 NEXT INC BC iPoint to next char. in string. 4168 17 NRML RLA ;Character code * & 
40ES C5 PUSH BC Stack the string address. 4169 1600 LD D.00 ;Reset register D. 
40E4 AF XOR A ‘Reset the graphics flag. 416B CB12 RL D ;Carry to D, set if code > 32 
40ES 322140 LD (GFLG).A 416D SF LD E.A ;DE = chr. code * 8. 
40EB OA LD A. (BC) ;Get the current character. 416E 21001E LD HL.1E00 ;Point to bit pattern table. 
30E9 FE76 CF 76 ;End of data string? 4171 3A0940 LD A. (PMOD)  ; Test for mode 0. 
40EB 2009 JR NZ CTRL ;No, check for control token. 4174 BD CPL ;Mode ð? 
























































4175 19 ADD HL.DE ;Point to the character pattern. 41ES 77 PRNT LD (HL).A ;Print the symbol. 

4176 282A JR Z MD-O ;Yes, do mode 6. 41E6 23 INC HL ;Point to the next print position. 
4178 113C40 LD DE.PRBF  ;No,point to PRBUFF. 41E7 220E40 LD (DFCP).HL ;Set DF-CP. 

417B DS ROT- PUSH DE ;Stack PRBUFF pointer. 41EA 10BF DJNZ 2BTS ;Repeat until B is zero. 

417C FS PUSH AF ;Stack MODE counter. 41EC DS PUSH DE ;Stack the pattern bytes. 

417D OEO1 LD C.01 ;Initialize SHIFT counter. 41ED 111D00 LD DE.001D  ;Set the next print position. 
417F 0608 MORE LD B.08 ;Initialize LINE counter. 41FO 19 ADD HL.DE 

4181 ES PUSH HL ;Stack pattern pointer. 41F1 220E40 LD (DFCP).HL ` 

4182 D5 PUSH DE ;Stack PRBUFF pointer. 41F4 Di POP DE ;Restore the pattern bytes. 
4183 CS TURN PUSH BC ;Stack SHIFT-LINE counter. 41F5 E1 POP HL ;Restore the pattern pointer. 
4184 7E LD A. (HL) ;Get the bit pattern byte. 41F6 OD DEC C ;Decrease row counter. 

4185 17 SHFT RLA shift bit to carry. 41F7 20AB JR NZ 2ROW  ;Ifnot @ then next 2 rows of pattern. 
4185 OD DEC C ;SHIFT counter 6? 41F9 1180FF LD DE.FF8O  ;Set print pos. for next enlarged char. 
4187 20FC JR NZ SHFT No, shift more. 41FC 2A0E40 LD HL. (DFCP) 

4189 CBiB RR E ;Yes, carry to bit 7, E. 41FF 340940 LD A. (PMOD) ;Test PMOD value. 

418B 23 INC HL Increase the pattern pointer. 4202 B9 CP C ;Mode 9? 

418C C1 POP BC ;Restore SHIFT-LINE counter. 4203 2804 JR Z HSET ;Yes, set for horizontal char. 
418D 10F4 DJNZ TURN  ;Do eight turns. 4205 FEO2 CP 02 ;No, mode 2? 

A18F 7B LD A.E ;Set to new bit pattern. 4207 2007 JR NZ VSET  ;No,then set for vertical char. 
4190 D1 POP DE ;Restore PRBUFF pointer. 4209 19 HSET ADD HL.DE ;Set next horiz. print position. 
4191. 12 LD (DE).A ‘Store new pattern. 420A 220E40 LD (DFCP).HL 

4192 13 INC DE ;Increase PRBUFF pointer. 420D C3FD40 AGIN JP NXCH ;Do next character. 

4193 OC INC C ;Increase SHIFT counter. 4210 EDAB1040 VSET LD BC. (VARS) ;Set next vertical print position. 
4194 3E09 LD 4.09 ;Test for eight lines completed. 4214 ES PUSH HL ;Stack current print position. 
4196 B9 CPC 4215 ED42 SBC HL.BC ;Greater than VARS? 

4197 Ei POP HL ;Restore pattern pointer. 4217 E1 POP HL ;Restore current print position. 
4198 20ES JR NZ MORE ;Do eight patterns. 4218 38F3 JR C AGIN ;No, do next character. 

419A F1 POP AF ;:Restore MODE counter. 4214 1EDF LD E. DF ;Yes, push print position back 1 row. 
419B 3D DEC A ;Is it zero? 421C 18bEB JR HSET ;Do H-SET. 

419C 2803 JR Z DONE  ;Yes, then done. 421E 00 NOPS NOP ;Spare space, 

419E E1 POP HL ;Set new pattern pointer. 421F 00 NOP ; for your own 

419F 18DA JR ROT- ;Rotate patterns til MODE counter @. 4220 00 NOP ; additions, etc. 

41A1 E1 DONE POP HL ;Point to bit pattern to be printed. 4221 00 NOP ; 20d bytes 

4142 0E04 MD-O LD C.04 ;Set row counte. 4222 00 NOP ; total. 

4144 0604 2ROW LD B.04 Set bit counter. 4223 00 NOP 

41A6 56 LD D. (HL) Transfer two pattern bytes to DE. 4224 00 NOP 

41447 23 INC HL 4225 00 NOP 

41A8 SE LD E. (HL) 4226 00 NOP 

4149 23 INC HL ;Point to next pattern byte. 4227 00 NOP 

41AA ES PUSH HL ;Stack the pointer. 4228 00 NOP 

41AB AF 2BTS XOR A ;Clear-A and carry. 4229 00 NOP 

41AC CB12 RL D ;Determine "PIXEL" value. 422A 00 NOP 

41AE 17 RLA 422B 00 NOP 

41AF CB12 RL D 422C 00 NOP 

41B1 17 RLA 422D 00 NOP 

41B2 CB13 RL E 422E 00 NOP 

41B4 17 RLA 422F 00 NOP 

41BS CB13 RL E 4230 00 NOP 

41B7 17 RLA 4231 00 NOP 

41B8 218440 LD HL.TABL  ;Point to data table. 4232 1618 CP24 LD D.18 ;Set counter for full screen copy. 
41BB 85 ADD A.L ;Point to graphic symbol. 4234 1807 JR COPY ;Copy the full screen. 

41BC 4F LD L.A 4236 2A3A40  COPN LD HL. (POSL) ;Partial copy set by PRINT AT 
41BD 7E LD A. (HL) ;Fetch the graphic symbol. 4239 3E18 LD 4.18 ;Set the counter. 

41BE 2A0E40 LD HL. (DFCP);Point to current print position. 423B 95 SUB L 

41C1 F5 PUSH AF ;Stack the graphic symbol. 423€ 57 LD D.A 

41C2 C5 PUSH BC ;Stack the ROW-BITS counter. 23D C36B08 COPY JP COPD ;Copy the set number of lines. 
41C3 ES PUSH HL ;Stack current print position. 4240 00 NOP 

41C4 7E LD A. (HL) ;Test for row. 3241 00 NOF 

41C5 FE75 CP 76 iIs it newline marker? 4242 00 NOP 

41C7 2002 JR NZ BOTM ;No, test for room at bottom. 4243 00 NOP 

4109 CF ER-R RST 08H ;Error, right margin overflow. 4244 00 NOP 

431CA 1A ERROR R ;Error report R. 

41CB ED4B1040 BOTM LD BC. (VARS);Test for room at bottom of DFILE. 

41CF A7 AND A Clear carry. q OFF THE WALL 
41D0 ED42 SBC HL.BC  ;Print position greater than VARS? E 

41D2 3802 JR C GOOD ;If carry then there is enough room. 3 

41D4 CF ER-B RST 08H ;Error, bottom overflow. 

A1DS OA ERROR B ;Error report B. STRANGE GOINGS ON... 

41Dé6 E1 GOOD POP H ;Restore the current print position. 

41D7 C1 POP E ;Restore the ROW-BITS counter. ZX81 - Enter and RUN this little program: 

41D8 342140 LD A. (GFLG) ;Test for graphic character. 

A1DB FEOO CP 00. ‘Is G-FLAG set? 10 FOR A=1927 TO 1941 

31DD 2805 JR Z GZRO  ;No, then print normal character. 20 RAND USR A 

ADF Fi POP AF ;Yes, restore the graphic symbol. 30 NEXT A 

41E0 EEB8O XOR 80 ;Invert it. 

A1E2 1801 JR PRNT ;Print inverted symbol. Hm... Now enter RAND USR 1917 (or any number between 
A1EA Fi GZRO POP AF ;Restore the graphic symbol. 1917 and 1924) and watch the ROM try to LIST itself. 
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Don’t grow old waiting 
for all those Timex 
rumors to come true. 





MODEL 2000 STARTER KIT (2068) 
includes: Drive, Interface. 5 Micro Wafers. and more 


MODEL 1000 STARTER KIT (1000. 1500. 2X81) 
includes: Drive, Interface. 5 Micro Wafers. and more 


MODEL 2068 CENTRONICS KIT 
includes: Cable and Instructions 


MODEL 2000 or 1000 OWNER'S MANUAL 


S Wey NUCH WAPEMN 1... ERRARE EST 3.50 
10 A&J MICRO WAFERS 255° 080i 32, 25 "9 x — 3.50 
20 A&F MICROWAFER — VIII ORAE. 4.00 
Jo Aéd MICRO WAFERS. Ora o IS TESTS 4.00 
S A&TMICROWATPER T Un eS 4.50 
WAFER ORGANIZER (Folder holds 16 wafers) 5.00 
WAFER CADDY (Tray holds 12 wafers) ........... 9.95 
WAFER WHEEL (Wheel holds 40 wafers) ......... 18.75 


- Centronics kit must be used with 
A&J Model 2000 Stringy Floppy 





A&J MICRO DRIVE 
ANNOUNCES 
NEW LOWER PRICES 


Let A&J Micro Drive 
answer your mass 


storage needs (A 
today! i 3j D 





| 





MODEL 2000 & 1000 
features 
High speed data transfer 
90 day warranty 
Reliable service 
No cassette hassles 
Lowest cost system available 
Widest dealer support 


€» 

N 

^ 

n 

e 
ecc ooo 


A&J DEALER NETWORK 
(No system has better dealer support) 
A&J MICRO DRIVE. Sunnyvale. CA (408) 
E AUTHOR BROWN. Alexandra. MN (612) 
KNIGHTED COMPUTERS. Fulton, NY (315) 593-8219 
GAMES TO LEARN BY. Collinsville. CT ' (203) 673-7089 
( 
( 
( 


732-9292 
762-8847 


SUNSET ELECTRONICS. San Francisco: CA (415) 665-8330 
ZEBRA SYSTEMS. INC.. Woodhaven, NY 718) 296-2385 
CURRY COMPUTER. Glendale. AZ 602) 978-2902 
RMG ENTERPRISES, Oregon City. OR (503) 655-7484 
TEJ COMPUTER PRODUCTS. Los Angeles. CA 

SUMWARE CO.. Alden. NY (716) 631-2204 


A&J Dv. 1050 E. DUANE AVE., SUITE "I", SUNNYVALE, CA 94086 (408) 732-9292 
11 





































The 64 column utilities in the 2068 technical manual 
do work, but they are not easy to use from Basic. 
There are far too many things to remember, and 
debugging your programs is a nightmare, This program 
allows the use of they Basic PRINT command without 
having to rewrite the ROM. 


It's possible to intercept certain Basic commands, 
such’ as, PRINT and the attribute controls; FLASH, 
BRIGHT, INK and PAPER. Unfortunately, not all 
commands can be intercepted and some of the screen 
commands aren't very effective in this mode. Since 
the attribute commands have almost no meaning in 64 
columns, they have been redefined to do useful 
things. 


How it Works 


The program modifies the computer's I/O channel #2 
(for the screen) in RAM. Channel #1 (EDIT line) is 
not modified. 


Certain actions by the computer will change channel 
specifications, causing general chaos on the screen. 
While a program is running, channel 2 is not 
modified and therefore operates reliably. When the 
program ends or is stopped by an error, the 64 
column mode is switched off. This is done by 
modifying the machine stack so that another 
switching utility is run before the error message is 
displayed. This infringes on the "territory" of the 
ON ERROR command, 


The built in error handling can be bypassed with 
RANDOMIZE USR 60016. When the program ends, you will 
still be in 64 column mode. If you're careful, you 

can list short programs. Things will get very messy 
quickly thereafter. When ON ERROR is active, you 
will have complete control when the program ends, 
Without it, RANDOMIZE USR 60651 before stopping, in 
order to return to 32 column mode, It is also legal 

to switch between modes while the program is running 
by use of the two USR calls. Just don't BREAK while 
you're in 64 column mode. 


Although the 64 column code is 694 bytes long, not 

all of the area above 60693 is vacant. The RAM 
resident code (see SWN 2/3), UDG's and machine stack 
are all up there too. There is 1.5K of space up 

there for your expansion. 


The Rules 


RANDOMIZE USR 60000 gets you started. 


Print works as before, and TAB and AT are now 
expanded to 64 columns. OVER and INVERSE work as 
before. UDG's still work, but they may need some 
redefinition due to the change in character shape. 





2068 - 64 COLUMN BASIC 


Wes Brzozowski 


DRAW, CIRCLE, CLS and COPY cannot be intercepted and 
produce strange effects. They only work on the first 
display file. 


The 2068 limits the screen attributes in 64 columns, 
FLASH & BRIGHT are not used. Only 8 combinations of 
INK & PAPER are allowed, and they must be the same 
for the whole screen, these commands have been 
redefined as follows: 


INK -- Selects both INK and PAPER. You pick the ink 
and the correct paper is automatically selected. Use 
it in a PRINT statement, e.g., PRINT INK 7. 


PAPER -- Now PAPER 1 or 0 will copy the screen to 
the 2040 printer. Do not use it in a PRINT command. 


FLASH -- FLASH 1 or 0 will clear the 64 column 
screen. Do not use it in a PRINT command. 


BRIGHT -- BRIGHT 1 now bolds the text (similar to 
Fat Characters), which will make TV 64 column 
viewing easier. BRIGHT 0 will return characters to 
their normal size. The modes can be mixed on the 
screen. E.G., PRINT BRIGHT 1. 


Scrolling is particularly troublesome and is not 
implemented here. A full screen causes an "out of 


"screen" error similar to the TS1000. Characters in 


the edit line print in every other column. 64 

columns in the edit line is not reliable. Finally, 

it would be best not to use ON ERROR until you fully 
understand the system. 


I do hope you enjoy using this program as much as I 
enjoyed developing it. 


64 Column Machine Code 


Enter this Basic listing and RUN it to incorporate 
the 64 column machine code. Then NEW the com- 
puter and type in the 64 column DEMO or write 
one yourself which makes use of 64 columns. 












=. 

5. 55 
EA 3 
a ae 
e. nae 
4, .e ,aa 
á .e 


be Ca C h- 
fa ra rtu rta na rto 
nage ca un 














64 Column Basic Demo 









f UL FO UT 





1@ CLEAR 59999 
2@ LOAD ""CODE 
30 PAPER 2: CLS 
40 PRINT AT 18.8: "64 Column BA 


On p OT) a ~d £- GI 


SIPS 
å 5@ PRINT AT 12.7; "By Wes Brzoz 
S` ouski": PRINT AT 12.,8;“337 Janic 
5, € 5t.": PRINT AT 12,9; "Endicott. 
g NY 13760" 
2, 70 PRINT #1;" Press N for NE 
^ 2 W or D fof a little demon 
$ strātionņn” 
| 4; 8B IF INKEY$="n" OR INKEY$="N" 
3; THEN NEU 
i i 90 IF INKEY$="d" OR INKEY$-"D" 
S. p, THEN GO TO 102a 
2 B55 188 cO TO 88 . 
'4à8 CATA 812.8071.205.109.006,20 ai e Tn a redet HH QNEM 
- 32 mo i s : a2 w “= o 
2 E MES NEGERI 1018 PRINT BRIGHT O;"This is an 
5 123 gas 924.811 285 969 per 1à example of 64 cotumn Printing!!! 
5,123,892 ,824,011,.28 807,19 a A A 
5 O33 B59 892 28S 154254 032.03 1020 PRINT . PRINT BRIGHT 1i"... 
2,002.203.198,038.000.111,041,04 HO Gg ioa AUGUE OPER ah AI I d 
à nme 2 2 A 
Sieso Bes gos 079 185.213 284 83 1030 PRINT : PRINT “You can use 
8.236,202,187,229.058,145,092,00 ee B MED LBInS Dn be Clg 
6.255,031,056,001,.004,031,.031,15 cay Os Sauer ee Set 
3,073,062,803,157.235,088,026,16 ML zai 2,243944 MUT 
0,245,197,070,058,012.237 SULOANP s PRESS chet bpt hy os BRIGH 
"SQ DATA 167,040.8009.120,203,03 rm H9 OCHETISAIBIShAight t, B 
8,176,058,8123,237,8024,004,128,05 y VOR a important poi 
è eia rA Por a oe nes G > 
7:174.925.153.018,088,020, 035.06 1050 PRINT . PRINT “You can use, 
1,032.215,235,225.193.013,203,10 the graphic characters... Mala fd 
8, k ,835,052.032,172, 3.2 a 
IR IDEOÓRE BItCELR M WO WU 10680 PRINT : PRINT INVERSE 1; 
8,218,183,087,192,207,004,120,25 EC SEC SNe! BOSS Ss INVERS 
S ee etree LETT SOS OIL BUO Tg 1070 PRINT : PRINT “And you do i 
3.852,8565,145,203,071,040,004,01 t all with BASIC Commands ttt t ttt 
3: ! 5,205,071, , , E i Carina I rari 
de nb LCD m 1080 PRINT : PRINT “AT and TAB c 
“Sa DATA 240 237 254 018,202.14 tiil work, but nou you can exten 
9,234,254 ,819,240,028,254,928,19 Hr ont aie eus $ 
5.201.035,122,220,007,007,007,00 1090 PRINT : PRINT "The user def 
7,071,218,255,230,199,176,211,25 Artis deti gd ae ae i udi 
E : ari dg ced, : : caedes OG CiE&af tu. 
5/801 :800:122:290 001.020. 912.7 1E Bo ARANE pein “rr you nave 
2 900.950.8156 237 205 148 236 19 a T52040 Printer. turn it on. T 
3/@62,016,850,016,237,205,1438,23 A ADM EIER PE. eles ae er 
EC 4 , : as, = 4209585 $i à aa nue = 
1 BOS 171,298,033 880,091 ,197,00 1110 PAUSE de4_ PAPER 1 
8,880 ,285,874,910,193,012,015,23 ligo FLRSH 1- PRINT “if you" ret 
4,201,197,8005,015,126,018,012,20 Dine ORG, OURS OVI Wuer JUSTERA 
"^78 PATA 835,815.243.123 201.12 €d the Lert hand side of the scr 
230,007,183,121,203,063,203,06 eeén-and then tne fight. siges 
,283,063,230,024.180.245,054,18 INE SE TETIVE, ipranting Kid 


€WayS) Could just as &asilu have 
been done. but it uses up 173 m 

Gre Paper. Using Scissors an 

d alu& if a bit bothersome, but 

not overly much. I hope you'll 
agree." 

1130 PRINT BRIGHT 1;AT 8.9; "The 

64 column mode is Limited by the 
hardware" 

1140 PRINT AT 9,9; "to only & ram 

binations GF ink/Paper, and only 


,;858,015,237,111,.121,205,032,20 
,US38,230,224,131,111,201,205,22 
:236, 042 , 261,292,237, 091,017,23 
:,115,835, 114,235,233, 062,128,2 
255,062, 201,211,244 062,000,20 
,142,014,175,211,244,211,255,04 
, 879,892 ,881,880,885,.835,835,a83 
,US3S5,ü035,i1i3,8255,112,201,000,2008 
,080,1982,015,141.014,001,000,00 
, 882,208,280 ,200,3882,300 

1@8@ CLEAR 59999: LET x-60808 
1818 FOR j=18 TO 76 STEP 10: RES 


f f Ul fo GL es 74 CIEGO G3 G3 E 


nie 4 : y ; 1150 PRINT AT 18.9;."a couple of 
Wo A sittin e iiu s E LOREM those are readable. Press a key 
i SSS 


1160 PRINT AT 11.9: "ta 
ight combinations......... "ars 
1170 PAUSE 4e4 
1180 FOR j=1 TO S8: INK íi8-,1): PA 
USE 60: NEXT ij 
1188 PRINT : PRINT “And nou, if 
you'll press ancothe? key, I’ll r 
€turn you to the Se column mode. 
Go ahead..list the Program and 
Look at the almost-normal BASIC 
commands used. Now Change it a 
round, and zee what happens. Re 
-enter with GOTO 4a." . 
1288 PRINT : PRINT 
*X---x HAVE FUN!!:!:'!1!!! xxxx" 
1218 PAUSE ded 
1220 BRIGHT @: FLASH 1. STOP 
9080 STOP 
Saga OUT 244, 1: MOVE “wes6acal.b 
ac",108: MOVE “S4tode. bin",689QQe, 
g0: CUT 244,0. STOP 
9901 REM aercao disc save 
9999 SAVE CHR$ 184CHR$ 1«'"64co!z 
“+CHRS$ 134CHR$ @ LINE 10. BEEP . 
1.1: SAVE CHR$ 134+CHRS 1-«'"code'!' 
“+CHR$ 13+CHR$ ICOCE o8000,3g00 


28088 SAVE "B4cotbas" LINE 1000 


! OFF THE WALL 


TS2068 - Turn on your machine and type LOAD " (or 
any other syntax error). Hold down the ENTER key for 
7 or 8 "clicks", No, your machine isn't broken, 
they're all that way. Turn it off and on again, 
enter RANDOMIZE USR 32000. Oh, just returns you to 
the copyright notice... now press Enter again, or 
just wait a few seconds. Like, wow! 

-fn 
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ZEBRA Disk Drive System for TS2068 $299.95 
Box of Ten (10) 3" Diskettes for ZEBRA Disk Drive $ 39.95 


ZEBRA GRAPHICS TABLET for TS2068 $ 89.95 
Includes FREE TS2068 Tech—Draw Software Cassette! 


ZEBRA TALKER Voice Synthesiser for TS2068 


ZEBRA TALKER Voice Synthesiser for TS1000 
Optional Speaker/Amplifier for ZEBRA TALKER 


SPECTRUM EMULATOR CARTRIDGE 
Send for our free Spectrum Software & Book Catalog... 


WESTRIDGE 2050 Modem for the TS2068 
Includes FREE TS2068 MTERM II Advanced Communications Program! 
COMPLETE GUIDE TO MTERM II By Barry Carter 


MSCRIPT TS2068 Wordprocessor $ 24.95 


The BEST 64 Column Wordprocessor for your TS2068 Computer! Requires Aerco or 
Tasman Parallel Printer Interface and any 80 Column Printer. 


ZPRINT-80 High Resolution Screen Dump Program $ 19.95 
ZPRINT-80 will print grey—scale reproductions of any color screen to your 80—Column 
printer. Includes High and Low memory TS2068 and Spectrum Versions and is compatible 
with AERCO, TASMAN, and A & J Centronics Printer Interfaces. Also includes advanced 
80 Column LLIST and LPRINT Printer Drivers. ZPRINT-—80 is twice as fast as 
TASCOPY, prints a better grey—scale dump and supports more Printer Interfaces too! 
AVAILABLE NOVEMBER 1985 
GREETING CARD DESIGNER for the TS2068 $ 29.95 
| Use your TS2068 with an AERCO, TASMAN, and A & J Printer Interface with an 
EPSON, STAR MICRONICS, MEMOTECH, SEIKOSHA and C-ITOH 8510 Printer to 
design and print Custom Greeting Cards for any occasion! Use built-in Graphic Icons or 
design your own! Includes sample pack of Brightly Colored Paper and Envelopes! 


AERCO TS2068 Centronics Printer Interface $ 69.95 
TASMAN TS2068 Centronics Printer Interface $ 69.95 
AVAILABLE SEPTEMBER 1985 
OS-64 Enhanced Operating System Cartridge $ 29.95 


OS—64 turns your 32 Column TS2068 into a 64 Column Computer, PRINT, PRINT AT, 
PRINT TAB, LIST, LLIST, LPRINT, and Program Editing commands work in 64 
Columns. Parallel Printer Drivers for LLIST, LPRINT, and COPY (COPY for Epson 
Compatibles only!) for AERCO, TASMAN and A & J Interfaces built—in! 












































































Send for FREE 48 Page Timex Product Catalog 
Please include $3.00 Shipping with all orders, C.O.D. Orders add $3.00. 
NYS Residents add appropriate Sales Tax. We Accept VISA and MASTERCARD. 


ZEBRA SYSTEMS, INC. 


78—06 Jamaica Avenue Woodhaven, NY 11421 (718) 206—2385 
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2068 MACHINE CODE 
IN A DATA STATEMENT 





Charles Stelding 
1415 S. Baxter 













1888 RESTOR > CLERHR 64999: LET 
Tyler, TX 75701 Line =: “LOADING CATA 
4 1818 FOR 65088 TO 65173 STEP Z 
? : LET. tá Liné+i0 LET test-e 
1828 FOR o ee A REAC data is 
This program will allow you to place machine code T tes tste ta: POKE ik+if dat 
| that is located anywhere in memory into a data 3: NEXT M 
1832 READ Lo MEE Oat ket Le st: 
i statement in line 1 of your Basic program. THEN PRIN SH i;"Tuüping mista 
ke HT LINE Tre Lio “tine 
1 iM t. w 
Enter the program as is and SAVE it by typing GOTO oe et 
8000. RUN the program, and it will POKE the 2000 FEM ual m Follows. 
necessary data starting at 65000. If you have made a Bei nee UIN LEE LS MAR AE avi 
typing error, then the program will stop and E CODE INTO^," DATA STATEMENT IN 
indicate the line in which the error was made. Check = LEAS EI t 
the line and correct the error. From this point on Sos he ice Sui heir a 1 ADDR 
it will only be necessary to have the code located 2825 POKE 23297,INT (A’256): POK 
at 65000 in order to create a 1 DATA statement. E 23295, iR/2955)) #256 
goa INP 'UT NUMBER OF BYT 
ES 0 PU 4E i'".H: PRINT A’ 
You will then be asked to give the starting address “4 LASH ING DATA INTO LI 


rj f 
SED OO mou 


of the machine code to be placed in line 1, followed 





by the length of the code. For instance, if you E 3 jon g = Ppa rd POK 

enter 65000 for the starting address, and 8 for the 2040 RANDO i5R 65000: LS 

number of bytes, then line 1 will have the same als — 

contents as line 10 (except for the checksum at the 3@@@ SAVE “DATALINEL” LINE 1. 3A 

end). UE -MUCSDHIH LODE.O05000.179.. VERT 
y TS CER IQ POUPOSE 


If there is a line 1 already present, then the 
program will return to basic without creating a DATA 
statement, This utility was adapted from John 
hardman and Andrew Huson's, 40 Best Machine Code 
Utilities for the ZX Spectrum (Hewson Consultants: 
London, 1982), pp. 96-100. 


TIMESCREEN" 
2X81,16K 


Creativity and 
planning aid: 





2.9.7 10BP^ 2 * 4 5.1 


e 3 screen formats (9-block 
format shown here) 


e BASIC routines to enter 
and rearrange data 


* Calendar 
* 10 screens in 16K; 36/32K 


* Use with any printer that 
will accept COPY routine 


Cassette and manual, $9.00 (VA res. add 4% tax), 
+ $1.00 s&h for one, 50g s&h ea. addl. cassette. 
One 8;x11 Label-Index Card sent with each cass. 
HAWC™ F 
Programmin 
4604 Apple Tree Drive 
Alexandria, VA 22310 
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WHAT, WE WORRY? 


For those of you who thought that we were just a 
couple. non-existent characters beyond your end-of- 
line marker, we decided to trip your NMI and create 
a full display file. Of course that's quite easy to 

do from a Bent ROOM. Anyway, this should prove 
beyond a shadow of a doubt that we are indeed a 
couple of real characters. 


To the left is creator of Profile, an avid Ham 
Hacker and naturalist who escaped from civilization 
by moving to the northern frontier and roughing it. 
As civilization encroached upon his settlement, with 
it came the local 5 & dime stocking oodles of TS 
computers, Then, bitten by the bug, Tom Woods has 
moved into the forefront as a true TSelebrity. There 
were rough times too. Publishing SWN Vol. 1 and 
Profile 2068 simultaneously, left him bound and 
gagged. As you can see by the picture, he has 
unraveled himself, although he is still looking for 
those bytes that the bug got. Of course, nowhere in 
the TS owners manual does it say that TS computers 
are not set up for multi-tasking, but then again, 
who reads that book anyway? 


In the center, we have the grand father of SyncWare 
News (funny, he doesn't look that old). In contrast 

to Mr. Woods, Fred Nachbaur left the northern 
frontier and escaped to high society (Los Angeles). 
Once there, he endeavored to the heights of 
electronic wizardry, creating battery backups. The 
Granddaddy BBU just by chance is located on the file 
cabinet just to the right. (Fred, when do I get it 
back?) After surviving an extended stint down South, 
and not to be out done by Mr. Woods, Fred once again 
trudged northward. Fred is a confirmed "analog" man. 
In contrast to the digital world of steps, Fred 


likes nice smooth ramps up and down. Well, I guess 
you have to learn to crawl before you learn to walk. 
Of course, Fred has now had a chance to dabble with 
IC's and has come up with some award winning fixes 
for TS Computers of all sizes. Needless to say he is 
uniquely qualified. 


And in the lower right corner is the illustrious 

editor (do you seriously think that I would roast 
myself?) of SWN. I have always enjoyed the high tech 
field. As a pilot, some years ago, I found myself 
grounded due to the lack of usable air in the 
Northeast Corridor. Needing the feel of real power 

in my hands, I grabbed hold of a black box and 
started tinkering. As of today, I am still 

tinkering, trying to figure out and understand what 

I am doing. Although I have done a lot, its 

usefulness is questionable, (By the way Tom, I found 
a couple of more extra bytes in the 8K ROM. Maybe 
you can use them.) Since SWN has come on the scene, 
I have been able to channel my efforts, I just need 
to remember to connect my interface so that my 
streaming I/O doesn't go in one ear and out the 
other. 


And a serious note: This photo was taken on 4/19/85, 
shortly before SWN 2/5 was completed. It was the 
first meeting for the three of us. By far our 

largest competitor is distance (and Ma Bell), but 
SWN has grown tremendously this year. We expect to 
grow even further in the next year. SWN presently: 
circulates 1500 legal copies, and you can rest 
assured that there are a lot more readers than that, 
We hope to expand in size (more pages), but the TS 
economics prevent this presently. 





Photo: Judi Bent 
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AUDIO FREQUENCY COUNTER 


By Charles F. Milazzo, KP4MD 
USNS Box 3007 
FPO Miami, FL 34051 


Reprinted with permission from QZX 


This program will run in as little as 1K of RAM and 
will allow frequency measurements (to about 15 kHz.) 
using the ZX81, TS1000 or TS1500. Uses include 
tuning RTTY tone generators, electronic musical 
instruments, tone encoders, and for calibrating 
audio generators, The audio signal is fed to the 
computer's earphone jack, and the frequency is 
displayed to the nearest Hz. on the screen, 


The work is done by a 62-byte machine language 
routine which is stored in a line 1 REM statement 
(memory locations 4082h to 40BFh). The hexadecimal 
codes should be loaded with a machine code loader 
after first entering a REM statement with 62 spaces. 
Alternatively, the decimal equivalents may be POKEd 
with a decimal loader loop into these locations 
(16515 to 16575). 


The entry point to the machine language routine is 
at address 4092h (16530d). Here the value 7055h 
(corresponding to 6F55 = 28501d; see * below) is 
loaded into the BC register pair, the value 3F is 
loaded into D, and HL is initialized to zero. The 
routine then calls the cassette port sampling loop 
at 4082-4091h. Each cycle of the loop required an 
average of 57.015 machine cycles and decrements the 
BC register pair. When the value in BC reaches zero, 


IT'S FAST IN SLOW MODE 
INCREDIBLE IN FAST MODE 


THE BEST FILING PROGRAM FOR YOUR 2X81, TS1000, 
TS1500 OR YOUR MONEY BACK 


INTRODUCING 


FASTFILE 


PROFESSIONAL DATA MANAGEMENT SYSTEM 


Holds more data than you ever thought possible! 


Written in lightning fast 10096 machine code. Sorts 
1500 5-byte records in 24 seconds, 500 in 3 seconds! 
Searches through 1500 records in 1 second! Adds up 
1500 decimal numbers in under 2 seconds. Built in word 
processor allows easy data entry. 4 data types stores 
more information in less memory. Add, change, delete, 
LPrint, search and query are all as easy as pointing your 
finger Several different kinds of files can be in memory 
at the same time. Complete query system answers “How 
many.. ?", "How much..?", or "Which...?" type questions. 
includes an example checkbook program which can store 
400 checks in 16K! Manual includes information on how 
to create coupon/refund files, mailing labels, inventory 
control, address book, appointment schedular/calendar 
and your own files 


To order send $19 95 plus $2.00 P&H for cassette and 
manual. Tom E. Cole, 1314 Speight #15, Waco, TX 76706. 
Texans add local tax. 





exactly 1/2 second has passed and a return is made 
from the loop. During each loop cycle, input port FE 
is sampled. If the input is high, 3F is loaded into 
the accumulator; if it is low, then BF, is loaded 
instead. This value is compared with the previous 
value which had been stored in register D, and the 
HL register pair is incremented if a change has 
occurred. As each audio signal cycle involves two 
transitions, the count in HL after 1/2 second is 
equivalent to the number of complete cycles in 1 
second. 


Upon returning from the loop, the previously 
displayed frequency is erased by printing 5 spaces 
at the beginning of the display file. [Not strictly 
necessary, as the "print contents of HL" routine 
would over-write the old data. - fn] If the count in 
HL was zero, the routine returns to BASIC, otherwise 
the PRINT position is returned to the beginning of 
the display file, using the ROM "print at" routine 
at 08F5. Then the contents of HL is printed as a 5 
digit decimal integer with suppressed leading zeros, 
using ROM routines 07E1 (print a digit) and OAAD 
(print line number digits for BASIC listings). The 
screen is blank during the .5 second sampling 
period, then the frequency is displayed during the 
PAUSE in line 5, The applied signal voltage should 
be about 3 or 4 volts (amplification through the 
cassette recorder's monitor output may be usable for 
some signals). Lowest measureable frequency is 
around 100-200 Hz. and is limited by the computer's 
eassette port circuitry. 


The accuracy of the frequency count depends on the 
computer's clock frequency which is nominally 3.25 

MHz. The TS1500 uses a quartz crystal, which is very 
accurate, However, the ceramic elements in the other 





CUm 





P foe foe fon fon foe fon foe 





Additional Notes 


Routine names: SMPL - sample loop subroutine. INIT - 
initialization (entry point). CLSC - clear first 

five spaces on screen. PROO - restore print position 

to start of display file. PRHL - print contents of 
HL. 


The PRHL routine is very handy anytime you need to 
print a two-byte number as a decimal integer, and is 

a lot faster than floating-point printing. E.g. RAND 
(non-zero number or BASIC variable) then RAND USR 





models can vary significantly. The initial value of xxxxx where xxxxx starts with LD  HL,(4032), then 
the BC register pair can be changed to compensate CALL PRHL, then RET. Control print position either 
for these variations. Measure the clock frequency from BASIC, or use the ROM routine at O8F5 as in 
with a counter or loosely-coupled, well calibrated this program. Note the extra PUSH HL in the PRHL 
receiver. Divide the frequency in Hz. by 114.03 and routine; this is not an error, it is POPped back off 
convert to hexadecimal. by the ROM routine. 


* Load the LEAST significant byte into the B 


register; add 1 to the most significant byte and A novel use for the SMPL routine is to sense if the 
load into the C register. E.g., for a clock tape recorder is turned on with the tape positioned 
frequency of 3.225 MHz.: 3225000/114.03 = 28282 = at the "pre-save buzz". E.g. 


6E7Ah. Change machine code statement at 4092h to 
016F7A (LD BC,7A6F). 


990 SLOW 
I have experimented extensively with this program in 1000 PRINT "LOAD NEXT PROGRAM Y/N?" 
the interest of optimizing it, and have observed 1010 IF INKEY$="" THEN GOTO 1010 
that, as predicted by the sampling theorem, 1020 IF INKEY$<>"y" THEN STOP 
frequencies above one-half the sampling rate (14,250 1030 CLS 
Hz.) cannot be counted accurately due to sampling 1040 PRINT "PLEASE TURN ON TAPE RECORDER" 
errors. Likewise, the program must be run in FAST 1050 IF NOT USR 16518 THEN GOTO 1050 
mode; one could use SLOW and compensate for the 1060 LOAD "" 


difference in sampling rate with a change in the 
initial value loaded into BC. However, since the 
sampling period is broken’ up into small segments 
occurring at the top and bottom margins of the 
picture, this results in random sampling errors that 
make the printed results less accurate. 


-fn 





SE -J6 € Smart Text -JE ->E € 
Administrative Software 


For TS-2068 and Oliaer Parallel Interface (adaptable to others). 
Version V-4 far TS-1822 and Oliger VDP and Parallel Interface. 


Word processing with full size printers. Supports maximum print line of your printer. Data files 
management. Mailing List. Automatic Letterheads. Prints Labels/Envelopes on tractor forms. Repeat 
print manuscript pages. Invoicing to Mail List. All functions integrated to provide repeat letters to 
wailing list. Full Editing with search, delete, replace, insert, append, and paragraph selection from 
data banks. Selective printing of paragraphs in any sequence. Left and right margins straight. Auto 
page numbering. Wrap printing to next page. More. 


Both versions programmed for Okidata printer. Easily adaptable to others. 35 page manual w/instructions. 
Satisfaction Guarantee 
$29.95 Check or MO. Specify Computer Model, SASE with Inquiries. 


Bill Jones, Gulf Micro Electronics, 1317 Stratford Ave, Panama City, FL 23404 (904 871 4513). 
(sample print with Okidata ML-82A printer) 
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FD-68 INTERFACE 


SYSTEM COMPONENTS 
Controls 1-4 drives 


$199 FD-68 Interface 
3 inch to 8 inch drives 


Shugart compatible $99 Drive 40T/DS/DD 


S inch/400 kilobyte 
Single or double sided 
g $99 Dual Drive Cabinet 
40/80 tracks per side and Samp Pwr Pack 
64K RAM (256K opt.) 
& 8K ROM on board 


$3 Per Item S&H 
Texas Residents add 6% 





RGB monitor output VISA/MasterCard add 5% 


Enhance the performance of your TS 2068 with the AERCO Disc System. All of the 
speed and convienience of a full-out floppy disc system. Save, load and copy programs 
at the industry standard of 250,000 bits/sec. Fully compatible with all Shugart type 
drives, including those already in use with the AERCO 1000 Disc System. The 64K of 
on-board RAM can be used as a second bank of system memory or for a full-blown 
CP/M System (version 2.2). The RGB output is crystal clear and rock steady. The 


power supply is a 5-amp high efficiency switcher. We offer a variety of other hardware 
for all models of sinclair-TIMEX. 


NOW AVAILABLE: 256K UPGRADE $50 (2-drive max) $80 (4-drive max) 


TS/2068 TS/1000-1500 
ihe c Wu cf oo NECITRERERRTERTOOO MEET TS y 199e. 55 07,5 Fea tpe. $179 
DICT TORRE EIU ee dee be es fram. «9595 5: Hh dos Oslo from 99 
Aoa goon l sls fe. ce oS isi de a oe EE 0 Nit lagi St ooi riot d 99 
LETTURE Pricer (70... bate come he. Lis xoa oo Bae Dv ganas sek Jhotiinoe 99 
DuALEREZS7USerial fOr Lo... ee, WE Fh qui doy M LAER OED, 99 
CITOIEBSJUDMTPIBIBTER ..4$16.95.. 0052.50... Pee DIM EL UU tires ib aX chum ae SMS 
Hl ae S l LESER tt E de ee eee PA ITR NE AE M. INO DEE 275 
ROM Bd. with Auto Disc Boot..................... Pel Bete. dius livore i PE BUD Yedu « 59 
RGB Cable (specify monitor)...................... Tops dinis os v leo Sio n/a 
CPEANCOUT 22) OR toloi.DrTSS? sien Nou Suy VE M Anat farted ah sede n/a 


AMIR Box 18093 Austin TX 78760 


Ph (512) 451-5874 
BSCME ELECTRIC 8BBB7 CE 
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BUILDING A 2068 DATABASE 


Mike Trivisonno 

1322 Golden Gate Blvd. 
Cleveland, OH 44124 
216 449 1666 


CIDS Part -2 


In this installment of CIDS, we will develop six 
essential routines. The only routine that is not a 
command is the error report routine. Also, as all 
programs are prone to revisions and extensions, the 
error routine may not reflect future versions, since 
the error routine takes memory that could be used 
for another command. 


The names of these routines are: 


1. MAKE 4. DELETE 
2. FIND 5. DISPLAY 
3. ADTO 


To get started, LOAD"" and ENTER. Note that if CIDS 
was not properly SAVEd, you will get a variable not 
found error. To correct the problem, EDIT 9010 and 
remove the REM in the statement. RUN the program. 


When the READY>> prompt appears, SHIFT 6 and LIST 
9010. CIDS is now ready to be edited or otherwise 
modified. 


As I began to program CIDS, I realized that I needed 
an error routine [Listing One] unlike those used for 
menu based programs, Since the program is controlled 
through the parser [200-290], you cannot be sure 
what command will be presented next. Most of the 
trapping is therefore taken care of within the 
subroutines themselves. When an error is detected 
and if it is sent to the error routine, an appro- 
priate response is displayed on the monitor. Some 
errors are taken care of within the routines 
themsevles rather than the error routine. For 
example, it would be inappropriate to have a speciai 
error report if you happen to hit the 't' key 

instead of the 'y' key. 


Listing One should be entered now. 


The most common error is the 'no file' error. When 
this error is encountered it means that you did not 
'find' the file before you attempted to work on it. 
If you remember to 'find' your files, then you won't 
ever encounter this error. Other errors are a little 
less encountered. For example, if you try to invoke 
the 'previous' command, but you haven't used the 
‘next’ command. If you think about it a bit, it only 
makes sense, How can you go to a previous screen if 
you haven't gone to at least the second one, This 
part of the program is almost self explanatory. It 
gives you an idea of the variety of things that can 
happen when CIDS is presented with bogus input. 


It's simply impossible to know what is going to be 
proffered to the program, but it is an easy matter 
to know what is allowed and what kind of input to 
look for. We will focus our error trapping, not by 
predetermining the input, but by using only input 
that makes sense. Note that the majority of the 
routines have as their first line of code: 


nn IF g=0 THEN GO TO 9995 


We know that a file cannot be worked with unless it 
in working memory. Since g keeps track of this, we 
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know that if g is equal to zero we have no file with 
which to work. It simply a matter of displaying the 
appropriate error on the screen. There is no need to 
balk on the rest of the input because of one error. 
The error routine is hard to follow, but it is 
essential if CIDS is to run properly. 


The 'make' routine [LISTING TWO], is the command 
that will allow you to create new files. Follow the 
procedure in Figure two to make a file. 


Figure two. Making Files. 


Filenames must be five or more characters. 


make «filename» ENTER 

make <filename>-<extension>- ... ENTER 
make <filename>[SPACE],[SPACE]<filename> , 
ee ENTER 


In the first case only one file is being made. The 
second example illustrates the fact that if you are 
going to make files with names consisting of two or 
more words, the words must be separated by any 
character other than a space. The last example 
creates two different files. Enter listing two. When 
you are done, practice making your own files. 
Remember that you must use GO TO 98 to get CIDS 
running again. 


Resume editing CIDS. Now that you have the ability 
to make files, you will need some way to locate 
them. This can easily be accomplished by a loop that 
compares the name that you supply with the names in 
the database. Then it is simply a matter of printing 
the appropriate responses. The 'find' command 
[LISTING THREE] will allow you to do this. The 
command syntax is: 
1. find <filename> ENTER 

As CIDS stands right now you cannot do anything to 
the files you find, The majority of your time will 
probably be spent editing files. This means that you 
will need a routine that allows you to: 


1. Edit files easily. 
2. Restore messed up files to their original state. 
3. Accomodate new commands. 


Figure three. Full screen editor commands, 
To access the editor: 


1. You must have a file in memory. If you don't, 
then 'find' one. 

2. From READY>> enter the command ‘adto,' and you 
will be in the SCAN MODE. 


SCAN MODE commands. 


Cursor movement. 

Home (1,1) position 

Go to EDIT MODE 

Return to READY>> prompt. 


5, 6, 7T, 8, keys 
h key 

SHIFT 1 keys 

r key 


EDIT MODE commands. 


Cursor movement. 
Insert characters. 
Delete characters. 
Acts as a return key. 
Go to SCAN MODE. 


SHIFT 5, 6, 7, 8, 
SHIFT 4 key 
SHIFT 0 key 
ENTER 

SHIFT 1 keys 





The next command to take care of is the 'display' 
command [LISTING FIVE]. This command will allow you 
display any file on the screen. Of course the file 

must be found if it is to be displayed. Enter 

listing five into the computer. To display files, 

enter 'display' at the READY>> prompt, and the file 
that is currently being worked with will be promptly 
displayed. 


This is a lot more work than you think. Just take a 
gander at listing four and you will see what I mean! 
In Figure three, you will find a table of the 
commands available while using the editor. This is 
by no means a full compliment of commands. 


When entering listing four be extra careful. One 
wrong GO TO can cause errors that are difficult to 
trace, Any line that has N/U as its annotation can 
be omitted. When you are done, test the editor by 
actually editing a file. Make sure to use every 
command available. If there are any discrepencies 
use a GO TO 98 and edit the file again. In this way 
you will be able to hunt down and crush any errors 
that crop up. Remember that a shifted space bar will 
stop the editor, simply CONTINUE to resume, 


As you can see, the subroutine is extremely simple. 
First, it does some error detecting, and then it 
calls a subroutine that checks to see if you want to 
display only a certain range of lines. After 
completing this subroutine, a call to the screen 
adjust makes the display pleasing to the eye. The 
loop starting at line 710 actually displays the file 
on the screen, 


The subroutine starting at line 750 checks the first 


character of a$. If it is not a number, then we 

return, Otherwise you take the VAL of the numbers a$ =:command line mf =:max. no. of files 

and store them in the variables h and i. These two w$ -:word sliced from a$ s$ -:general purpose variable 
variables control the loop to display the file. To f =:file counter f$(f,1) =:first line of file f 


use the line clause, follow this syntax: 








esa CL FU ES. ! 


STING ONE- ERROR ROUTINE [9995-9999] 


PRIN’ SS us To 4 print ‘error’ and 
appropriate response 
depending on w$ 


VARIABLES USED 


w$ =: word sliced 
from a$ or set 
from program, 


SSS DEIN! EBETUENM print blank and return 


—————————————————————————————————————— 








1 
P 


iz command line <5 chars.? 
slice filename out of a$ 
: filename <5 chars. ? 

= # files (f)= max allowed 


files equal mf? 

store name of file in s$ 
open new file: insert 
name: print response 
ee are return to process next 





VARIABLES USED command 





SELECTIONS FROM OUR CATALOG 





WESTRIDGE 2050 MODEM =>$110.00 
TS2068 

ROMSWITCH =>$43.95 

MTERM II =>$27.95 

MSCRIPT WORDPROCESSOR =>$22.95 

STOCK PLOT =>$16.00 

CHECKREC =>$12.00 

PRO/FILE 2068 =>$26.95 

ZIP COMPILER =>$19.95 


HARNESS HORSE HANDICAPPER =>$19.95 
THOROUGHBRED HANDICAPPER =>$19.95 


GREYHOUND HANDICAPPER=>$19.95 
SPEECH SYNTHESIZER =>$16.95 
ALL QUICKSILVA TITLES =>$19.95 
ZEAL DISASSEMBLER =>$15.95 
TS2068 BASIC TOOLKIT =>$19.95 
THE DEALER'S DEN =>$19.95 


educt rom total order when you 


ZX81/TS1000/TS1500 (16K) 
STO => > 
CHECKREC =>$10.00 
TEXTWRITER 1000 =>$11.95 
TS1000 SUPERTAPE =>$22.95 
HOUSEHOLD INVENTORY =>$10.00 
SPEECH SYNTHESIZER =>$16.95 
WAR in the EAST =>$16.95 
ZX-CALC(64K) =>$18.95 
with accounting model =>$28.95 
ZX PRO/FILE =>$16.95 

KKKKKKKKKEK 

Please include $3 S& per order. 
Check or money order only. 
NY residents add sales tax. 
COD orders charge of $3.00 
OVERSEAS orders add $3.00/item. 
uy two or more software packages 


WMJ DATA SYSTEMS 
4 Butterfly Drive-SN 
Hauppauge, NY 11788 
(516)543-5252(24 Hours/7 Days) 


CALL OR WRITE FOR OUR FREE CATALOG 
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disp xx to xx where xx is a two digit number. 


disp 01 to 09 will display the first nine lines of 
every file. The line clause will stay in effect until you 
change it again. 


Now that you can create, edit and display files, you 
will need a way to remove unwanted files from the 
database. Since we are not working with linked lists 
or tree structures, we will use a simple method of 
deletion. This entails writing over the file to be 
removed with the file that immediatly follows it, 
and continuing until the entire database is moved up 
one file. This brute force method will eliminate the 
offending file while keeping the integrity of the 
rest of the database, Enter listing six into the 
computer. Now when you wish to delete a file, you 
simply find it and invoke the delete command. You 
will be prompted to verify the delete process. 


Before the file is deleted, it is written to a 2D 
array, This array can be written back to the 
database if you decide that you want the file back. 
As it is now, you are unable to 'restore' a file. 
Although most of the work can be done by the 
routines we have just written, it will be up to you 
whether or not you wish to wait for the next 
installment of CIDS, or boldly plunge into the 
unknown and attempt to write a restore routine for 
yourself. 


You will be unable to save or load your database 
from CIDS, but you can program these routines from 
Basic if needed. I am going to save these for the 
next issue. In the next issue we will discuss the 
following commands as well: 


1. SORT 
2. NEXT 
3. NAME 


4, PREVIOUS 
5. RESTORE 
6. MOVE 











IMPOSSIBLE? NOT NOW! 


Color on your black & white TV? Yes with CHROMASOFT, 
Experimental graphics program for TS1000/1500/ZXB1 (16K). 

Up to 9 colors. 

Send $14.95* to see & believe. 


WINKY BOARD improved! Higher volume duplication of low 
volume cassettes. Copy any cassette. Invaluable loading aid for 
TS2068, ZX Spectrum, TS1000/1500, ZXB0/81. Easy plug-in interface 
$20.95* 


ROMSUJITCH pius your TS2068 = 2 computers. Choose ZX 
Spectrum or TS2068 with keyboard switch. ROMSWITCH plugs 
inside TS2068. Fast, easy, elegant. No soldering, etc. Practically 
100% ZX. Spectrum software compatible. 

$45.* 


Add joystick action and control. GRMESMRTE interface, plus 
Joystick, plus Spectrum program with Kempston option and 
TS2068/Romswitch or Spectrum ROM = a winner! 

GAMESMATE joystick interface $19.95* 


SPEECH RECOGNITION SYSTEM for TS2068 or TS1000/1500 
$29.95*. For speech activated games, contact us. 

—Spectrum Manual $14.* 

ZXLR8 fastioad — T51000/ZX81, TS1500 using TS1000 ROM. 
$10.50* 


*Shipping included in US & Canada. 
FREE Catalog lists hardware, software & sale items. Write/phone 


RUSSELL ELECTRONICS, RD1 Box 539, Centre Hall PA 16828 
(814) 364-1325 Mon.-Sat. 10 a.m.-7.p.m. EST MCONisa, Check, MO 





LISTING THREE - FIND ROUTINE [500-555] 


command line « 5 chars. 
slice filename out of a$: 
filename «5 chars? 

store name in s$ 

loop to search for file 





keep looping until a 
match is found or all 
tiles exhausted 


g=previous filenumber 
file not found report 


XI 
m 


aa 


file found report: 
return 





VARIABLES USED 


a$ =: command line 

w$ =: word sliced from a$ 
general purpose ` 

loop 

f =: file counter 

prev =: number of previous file 


LISTING FOUR - ADTO ROUTINE 









sais file to be edited? 

se set screen X variables 
PE 

se go to SCAN mode 

52 return 


output cursor pos. 


CO CaP, 


ul 


cursor down 





Ul e t 


ditto 





La 
S246 ‘ote Re Re ILE go to main 
S868 3. ENVERSE 8,5 cursor u 
UR): IF x«1 THEN LET E 


ise 1 ee, a ditto 


-- UI 


go to main 
cursor right 


Ue uiu 
- füf) Cx 


ij: imc-13 THEN ditto 
comc: GO T ditto: go to main 


go to main 





e LG CO C] 





INVERSE @:5£: cursor left 
;8 THEN LET 
5 C iT Hew LEF ditto 
S go to main 
S IT MODE" go to EDIT mode 
É 2i TREND accept keyboard input 
T sae 5091: N/U 
E TO 81 5092: N/U 
5i z^ 5093: N/U 
5 hu 5094: N/U 
5095: N/U 


clean status line 





th 


u c i 


home cursor position 


bs 























cursor pos. and set up 
status line 


Ec 

sie 5100: N/U 

sie LET y=31: IF c 9102: N/U 

+80 5104: N/U 

Sigt ir ee ARTIA PM: N/U 

ET bi Toca UU - 5120: N/U 

5122 ¿+ 5122: N/U 

i TH 5124: N/U 

ma 

S125 5125: N/U 

ci 5126: N/U 

5158 see line 5560: EDIT 
PESE mode-set main to 5154 
5154 error trap 

Tae print text, current 


keyboard input in c$ 





BOOKS 


Statistics and Programming 16K 
Timex/Sinclair 1000/1500/ZX81 


O Basics of Timex Sinclair 1500/1090 BASIC 


An innovative 


for users who cannot relate to the approach in 
the Timex/Sinclair manual. 


O New Book: 


Sinclair BASIC 
Intermediate to advanced level 


t f A ADEL programs written 
in various dialects of BASIC. A 


dictionary of keywords is included. 
Nonparametric Statistics 


techniques for 


O New Book: 
Twenty three pr 
Signed Rank, Manne 


experiment using 


Programs ava 


Translati 


rams includi 


E itney U, and. Friedman. 
statistics include listing 


statistic, 
example of NS and output. 
llable on 12 cassettes; $20.00 


PAGES; 21:90 
introduction to Sinclair BASIC 
brogram into I mex 
es; $8. 
go yere 


comprehensi ve 


00 pages; $15.00 
svete 


complete example of 
and complete 


O Comparison of Means: t-tests and Analysis of 


Variance i 
Twelve programs including ANOVAR wi 
factors. Co dues 

a 


actors. Exp 


measures on any 
nations of programs include 


170 es; $11.00 
with Te or 
or a 


listing and example of input and output. 
O p E 25.00 


Programs availab 


Our 
refund within 


e on 6 cassettes; $ 


books and cassettes can be returned for full 
90 days of purchase. 


er om 
the above description or send for a free detailed 


description of 
include a free 
listing (including 
example of data 
entry 
order or request 
for book descrip- 
tions. 





he books. 
Multiple Correlation program 


KDVHE.Publishers 
P.O. Box 6788 
Chicago, IL 60680 


LIMHOLD 


If requested, we 


DECISION SUPPORT TOOL 
AVAILABLE AT LAST! The most advanced 


and sophisticated investment Advice software 
ever.devised for Timex/Sinclair Computers. 


Remove all subjectivity associated with stock selection. 

LIMHOLD forces you to objectively assess the parameters associated 
with stock valuation according to the Fundamental Stock Analysis 
theory. Once you have entered these key parameters, available 

from the financial pages of your daily newspaper and from your 
local library, LIMHOLD does the rest. Discounting all future 
earnings to Present Value, it tells you whether a selected 
security is capable of meeting your required rate of return at 

its current market price, or whether you should look elsewhere. 
This model takes up where ANALYSIS left off. 


But this is just the beginning! You can employ Sensitivity 
Analysis techniques in exploiting the Decision Support capabilities 
of LIMHOLD. Change one parameter, then change another and see if 
the stock holds up as a "buy" over a range of potential "situations". 


Alternatively, play "What If" games with each of the modifiable 
parameters. If you are comfortable with your assessment of future 
economic considerations, vary the market price of the security 
and re-run the model until you arrive at the market price at which 
the security can be rated a "buy" in order to meet your required 


rate of return. 


These are just some of the powerful features available from 
LIMHOLD. If you are a serious investor, you owe it to yourself 
to obtain this excellent investment decision support tool. 


Available for the ZX-81, TIMEX-1000/1500, TS-2068 and the 
48K Spectrum (tape and extensive tutorial $19.99). Specify model. 


Send check, money order to: 


ORION'S BELT Enterprises 
807 N. Fairway Road 
Glenside, PA 19038 





(Add $1.00 postage and handling; 
PA RESIDENTS add 6% sales tax). 
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mtm 


&0 TO 5155 
GO TO 5400 
' THEN GO TO 5040 
THEN Go TO 5060 
THEN GO TO 507a 

i GO TO Sese 


Gio dps ui 
"UID. UL GI UI 








;-7 THEN GO TO 5308 

IF v-zipP THEN GO TO 5318 
¥=5 THEN GO TO 5430 

GO TO 5201 


M uou c 
0-4 OVC ee fri 


b Pe þei e eh pex poit eh es 
H 
Tl 
Ub 


uiu rai EN OY 


AD ua 


-: for 


HO Gon 


&: PRINT AT x, 
F comc THEN LE 


ul -1uz uiu 


d»íimc-13 THEN 


GO TD main 
C4 > LET erzprsis 
THEN GO TO 5245 
aif 

S LET aio = 
THEN LET i 


GO TO mai 
LET main-55g68.: PR 


IF imi 
lm 
S250 LET žala Ler 
n 
S388 PAUSE 28: 
INT HT 8,8; " 

D TD main 


? LET DSa by, Gad 0 
TO 


uu zo: 






ul 


)zbáil.,c«1 TO 
Jet csepHMauCUDUVC 


GO TO main 
43 LET b£il,c 
i GO TO main 


QG - Od 09 


4 LET gzgj-i.| Ir" ie THEN LET 


gig AN 


P.C) np C 


a GO TO main 
@ PRIHT AT =.4; 
e 


"i m dE UULE 


un 
unm 


THE 


- rn. m 
M an MET oe 


u ul ul 
gia ul 


5040 
5858 
5070 


DERE 





f£: C2 UD FD) pe 

f ha rm : 
4 
" 

ri rm e (| 


THEN GO TO 5030 
i71 THEN GO TO 


D 


4f uui 

aha 
[zs 
Tl 


fa 01 Oa 


I GO TO 5098 
THEN GO TO gasa 


174€ 
MO 


be 
T 
rm nm 
CB dh HAART n 


Un du une ui ui 
qu dau d d ui 


bs i 
($t) 
' 
"| oy 





"n 


j 
Taro Ar 
tu 
tH 








PRINT IHHK 4; 
T idB- FE 





wo 
sba 


os HA E pi : 
a ae iJ! - aM 
OAA I r Ae e 5m 


bet EZ 





take the CODE of c$: 
error trapping 
error trap 


ENTER key 


cursor down 
cursor up 


cursor right 

cursor left 

SCAN mode (SHIFT '1' 
delete character 

insert character 

it's a character not a 
command so insert it into 
the file 

do it again 

insert the character: 
adjust the cursor pos, 
our we on the last line 
of the file? 

go to main 

adjust y 

5230: N/U 

5240: N/U 

move cursor down: 
check for last line 


adjust x: adjust y 
go back to SCAN MODE 


delete character at 
cursor pos.: go to main 
insert character at 
cursor pos.: go to main 
adjust y 

go to main 

ENTER routine 


ditto 


go to main 
insert character 
SCAN mode: 


Set up status line 
ditto 


accept keyboard input 


cursor down 
cursor up 
cursor right 


cursor left 
go to EDIT mode 
put cursor at (1,1) 


return to READY»» 
do it again 


Set up editor variables 


ditto 
loop to put file to be 


edited in a 2D array 
flashy screen display 


restore file: put 2D 
array back into 3D 
array of database 
flashy screen display 
return to READY»» 





LISTING FIVE - DELETE ROUTINE 


1030 IF a-8 THEN GO TO 9995 
1090 CLS : PRINT HT 2.0; "Delete 


ANALYSIS 
STOCK SELECTION GUIDANCE 1092 CLS . PRINT AT 2,0; Delete. 
INK 7: GO SUB 300: INPUT “Are Jy 


Now Available! Fundamental Stock Analysis ce Sd ered Mig GR lh a 


file to delete? 
print filename and 


verification prompt 


1891 IF y$="y delete the file? 

48902 IF y#i:"n" THEN GO TO 16839 abort the procedure 
No HOCUS POCUS Charting involved! No requirement to update data 1093 RETURN j 
daily, weekly or even monthly! With ANALYSIS and your 16K ZX- 12234 FOR s=1 TO mi: LET r$ís)-fí$ loop to move file to be 
81/TS-1000/TS-1500/TS-2068 you can make sound BUY/HOLD/SELL in- (3,2): NEXT s 


vestment decisions at your convenience. ANALYSIS uses informa- 
tion readily available in your newspaper and at your local 
library. ANALYSIS and your TIMEX provide you with a decision 
support tool equivalent to those used by professional invest- 
ment advisors. 


deleted into a temporary 
storage array so that it 
can be restored if you 


desire 
Fundamental Analysis centers about the premise that a on -r P E: j 3 , 
security's price performance is dependent upon its expected seer ahs ied LE 5 1 PRINT AT 1,8; loop through the 
future earnings growth. ANALYSIS projects compounded earnings 1185 v d database 


growth based on historical data using LINEAR REGRESSION tech- f i951 EL 
niques. A security's present price is compared to price ranges Sone PRINT AT 1,9 RE 2 to; 


s zf$&ís41l, i i: 
based on projected earnings. An Upward/Downward movement ratio $i ti E: x e 
as well as a BUY/HOLD/SELL recommendation is provided as output. PAPER 2; INK 8G;r£ísz41,t) 


display current line in 
file: overwrite file to 
be deleted 

BEEP .@1,4@: NEXT s keep looping: beep after 
LET x= INK O0: CLS each file: move to next 


eet oe: E 
'esLET D HERE UA file in database: 


CLASSIF IED 


YOU ior AFFORD TO BE WITHOUT THIS TOOL! (Tape and 
Tutorial $17.50). 


PORTFOLIO 


Investment Portfolio ='th your ZX-81/TS-1000 (16K) 
aiso tor TS-2068, TS-1500 


Performance Analysis, File Management Capabilities 





PORTFOLIO provides a powerful tool that transforms your 16K ZX- 
81/TS-1000/TS-1500/TS-2068 into a sophisticated Investment Data 
Bank.Track stocks, bonds, mutual funds. Maintain accurate records 
of # shares, cost, and set selling price targets. Tracks up to 
50 securities. MENU- driven record management capabilities to 


Do you have something to sell? 
Let everyone know. Just $2.75 a 
line will put it here. 32 column 
(screen) format, include spaces 


FOR SALE: 2068-like new! AERCO 
Printer IFC. Pro/file, VU-CALC, 
Vu-3D, Tasword Two, Upload 2000, 
assorted Financial/edu- 


ADO, CHANGE, DELETE or DISPLAY selected records. Automatically 
list the entire file, one record at a time, viewing tableaus 

of security attributes including value, cost and percentage 
gain. MENU-driven file management capabilities allow you to in- 
put current market prices and recalculate overall portfolio 
performance and individual security performance as well. Save 
and Restore file contents to and from cassette. 


in your text and send CK. or 
MO with your listing. 


cational/games S/W. M. M. 
Egnotovich, 807 N. Fairway Rd. 
Glenside, PA 19038 


Send to SWN Classified, 9016 
Flicker Pl., Columbia, MD 21045 





FOR SALE: T/S 2068 computer, 
new in box, + 4 new software 
programs, All for $175. Wayne 
Kay, RT 1 Box 260, Smyrna, DE 
19977, (302) 653-7638 


A MUST for any TIMEX owner who maintains an investment 
portfolio. (Tape and Tutorial $15.50). 


Get cash for that unused board 
or addon! SELL IT!! 


Specify computer model. 
Send check, money order to: 


ORIONS'S BELT Enterprises 
807 N. Fairway Road 
Glenside, PA 19038 


(Add $1.00 postage and handling 
per cassette; PA RESIDENTS add 
6% sales tax) 
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